Úr Wikipediu, frjálsa alfræðiritinu
#!/usr/bin/evn perl
# Ævar Arnfjörð Bjarmason - in the public domain.
@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);
#print "{|\n";
for ($i[0]=0;$i<=$#month,$_=$month[$i[0]];$i[0]++) {
($month, $days) = split /:/;
print "{|\n" if ($i[0] == 0);
print "| '''[[$month]]''' || ";
($month, $days) = split /:/;
for ($i[1]=1;$i[1]<=$days;$i[1]++) {
print '[['.$i[1].'. '.$month.' (merkisafmæli)|'.$i[1].']] ';
print ' || ' unless ($i[1] == $days);
}
unless ($#month == $i[0]) {
print "\n|-\n"
} else {
print "\n|}\n"
}
}
- –Ævar Arnfjörð Bjarmason 20:31, 16 feb 2005 (UTC)