1
2

my $hr={a=>1,b=>2,c=>3};
printf "geht: %d und %d \n", @{$hr}{qw/a c/};

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de