Leser: 24
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
#!/usr/bin/perl use warnings; use strict; use POSIX qw( strftime ); my ($heute, %plz, $p); format STDOUT_TOP = Zaehlung vom @<<<<<<<<<: $heute Wert Anzahl ============================== . format STDOUT = @<<<<<<<<<<<<<<<<<<<< @##### $p, $plz{$p} . $heute = strftime "%d.%m.%Y", localtime; $plz{1040} = 987; $plz{1020} = 3212; $plz{1010} = 1234; $plz{1030} = 14; foreach $p ( sort keys %plz ) { write; } # foreach # so etwas wie ein STDOUT_FOOTER gibt es # leider nicht, daher muss man es händisch # machen. print '=' x 30, "\n";