Shell Programming and Scripting

# Week numbers, 8 columns
@headers = ("2011-34", "2011-35", "2011-36", "2011-37", "2011-38", "2011-39", "2011-40", "2011-41");
%data = ("2011-34", BCE,
         "2011-35", YZA,
         "2011-36", MID,
         "2011-37", KAL,
         "2011-39", WUL,
         "2011-41", YOK);

# Need to map output as below:
|    |2011-34|2011-35|2011-36|2011-37|2011-38|2011-39|2011-40|2011-41|
| 1 |  BCE  |  YZA   |   MID  |  KAL   |            |  WUL |            |  YOK  |

@headers = ("2011-34", "2011-35", "2011-36", "2011-37", "2011-38", "2011-39", "$
%data = ("2011-34", BCE,
         "2011-35", YZA,
         "2011-36", MID,
         "2011-37", KAL,
         "2011-39", WUL,
         "2011-41", YOK);

print "|\t|", join("|", @headers), "\n", "|1\t";
foreach(@headers)       {       print "|", $data{$_}, "\t";     }
print "\n";

#!/usr/bin/perl

@headers = ("2011-34", "2011-35", "2011-36", "2011-37", "2011-38", "2011-39", "2011-40", "2011-41");

%data = ("2011-34", BCE,
         "2011-35", YZA,
         "2011-36", MID,
         "2011-37", KAL,
         "2011-39", WUL,
         "2011-41", YOK);

foreach $h (@headers) {
    if (not exists $data{$h}) {
        $data{$h} = "";
    }
}

unshift(@headers, "    ");
$last = $headers[@headers - 1];

foreach $t (@headers) {
    printf("|%s", $t eq $last ? $t . "|\n" : $t);
}

foreach $v (@headers) {
    printf("|%4s", "1") if not exists $data{$v};
    printf("|%7s", $data{$v}) if exists $data{$v};
    print "|\n" if $v eq $last;
}

./your_script_name