operator ,

[Lukas Svoboda]

Proc "nefunguje" tento programek:
perl -e '@a{@b = <>, (chomp @b), @b}=(1,2,3); print map { $_ .= ":$a{$_}\n" }
keys %a'
aaa
bbb
ccc
^D
Vypise:
ccc:
3:
bbb:
aaa:

misto toho bych cekal, totez jako u:
perl -e '@b=<>; chomp @b; @a{@b}=(1,2,3); print map { $_ .= ":$a{$_}\n" }
keys %a'
aaa
bbb
ccc
^D
Tedy vysledek:
ccc:3
bbb:2
aaa:1

diky
Lukas Svoboda