User:Heb/PDSBA.pl


 * 1) !/usr/bin/perl -w

use strict;

my $weekbegin=1; my $weekend=52; my $year=2008; my @otheryears = (2006,2007,2008);

my $header = qq{==Denmark Portal selected biography archive: $year == This is the selected biography archive, for the Denmark portal.

};

my $footer = q{ This index is generated by this cruel but working perl-script. };



print $header;

foreach my $otheryear (@otheryears) { if ($otheryear != $year) { print "* Year $otheryear archive\n"; } }

print "\n\n";

while ($weekbegin <= $weekend) { print "$weekbegin: View · edit · discuss · history \n"; print "\n"; print "\n\n";

$weekbegin++; }

print $footer;