(Perl) hash-slice politisch erklärt *g* zum WE

[Horst]

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