Wikipediaspjall:Merkisafmæli
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)