Wikipediaspjall:Merkisafmæli

Page contents not supported in other languages.
Úr Wikipediu, frjálsa alfræðiritinu

Use da source luke:

#!/usr/bin/evn perl
use utf8;
@month = qw(janúar:31 febrúar:29 mars:31 apríl:30 maí:31 júní:30 júlí:31 ágúst:31 september:30 október:31 nóvember:30 desember:31);

for ($i[0]=0;$i<=$#month,$_=$month[$i[0]];$i[0]++) {
        ($month, $days) = split /:/;
        print "{|\n" if ($i[0] == 0);
        ($one, $two) = split //, $month, 2;
        print "| '''[[Wikipedia:Merkisafmæli/\U$one\E$two|\U$one\E$two]]''' || ";

        ($month, $days) = split /:/;
        for ($i[1]=1;$i[1]<=$days;$i[1]++) {
                print '[[Wikipedia:Merkisafmæli/'.$i[1].'. '.$month.'|'.$i[1].']] ';
                print ' || ' unless ($i[1] == $days);
        }
        unless ($#month == $i[0]) {
                print "\n|-\n"
        } else {
                print "\n|}\n"
        }
}
–Ævar Arnfjörð Bjarmason 22:22, 16 feb 2005 (UTC)