Der folgende Beitrag wurde am 16. 11. 2007, 19:58 Uhr von Horst veröffentlicht.
Hallo,
ich hoffe, ihr findet das auch so lustig wie ich:
#!/usr/bin/perl
use strict;
my @politiker = qw(Merkel Thierse Öttinger); # skalierbar
my %notes;
@notes{@politiker} = map{6}@politiker;
while( my ($politiker, $note) = each %notes){
print "$politiker: $note\n";
}
Viele Grüße und schönes Wochenende,
Hotte
© 1998-2013 SELFHTMLImpressumSoftware: Classic Forum 3.4