PabloDuboue: Created page with "

 #!/usr/bin/perl  # I, Pablo Duboue, dedicate this to the Public Domain.  use strict;  my@rows; my$prev;  while(){     chomp;     next if($_ eq $prev);     $prev =..."

2015-07-04T04:52:56Z

Created page with "<pre> #!/usr/bin/perl # I, Pablo Duboue, dedicate this to the Public Domain. use strict; my@rows; my$prev; while(<STDIN>){ chomp; next if($_ eq $prev); $prev =..."

New page

<pre>
#!/usr/bin/perl

# I, Pablo Duboue, dedicate this to the Public Domain.

use strict;

my@rows;
my$prev;

while(<STDIN>){
chomp;
next if($_ eq $prev);
$prev = $_;
push@rows, [ split(/\t/,$_) ];
};

my @header = @{shift @rows};
my%idx=();
foreach my$i(0..$#header){
$idx{$header[$i]}=$i;
print "$i $header[$i]\n"
};
foreach my$r(@rows){
my@row = @{$r};
print "== [" . $row[1] . " " . $row[0] ."] ==\n\n";
#print $row[0]."\n".$row[1]."\n";
print '{|class=wikitable border="1"
! Area !! Chair(s) !! Submissions (long, short)
|-
';
print "| General Chair || ".$row[$idx{"Answer.general_chair"}]." (".$row[$idx{"Answer.affiliation_general_chair"}].") ||\n";
print "|-\n";
print "| Program Chairs || ";
foreach my$k(1..2){
if($k == 2){
print ", ";
}
print $row[$idx{"Answer.program_chair_$k"}]." (".$row[$idx{"Answer.affiliation_program_chair_$k"}].")";
};
print " || \n";
$prev = 0;
foreach my$k(0..39){
if($row[$idx{"Answer.area_".$k}] eq $prev){
print ", " . $row[$idx{"Answer.name_".$k}]." (".$row[$idx{"Answer.affiliation_".$k}].")";
}else{
if($prev){
print " ||\n";
}
print "|-\n";
print "| " . $row[$idx{"Answer.area_".$k}]." || ".$row[$idx{"Answer.name_".$k}]." (".$row[$idx{"Answer.affiliation_".$k}].")";
}
$prev = $row[$idx{"Answer.area_".$k}];
}
print " ||\n";
print "| * || * || \n";
print "|}\n";
print "\n* No information is found for the area chair for each specific area. Below is the list of all area chairs for " . $row[0] . ":\n\n";

foreach my$k(0..39){
print $row[$idx{"Answer.name_".$k}]." (".$row[$idx{"Answer.affiliation_".$k}]."), "
}

print "\n\n\n" . $row[$idx{"Answer.comment"}] . "\n";
}

</pre>

User:PabloDuboue/Area Chairs Script - Revision history

PabloDuboue: Created page with "
#!/usr/bin/perl # I, Pablo Duboue, dedicate this to the Public Domain. use strict; my@rows; my$prev; while(){ chomp; next if($_ eq $prev); $prev =..."