operator ,

[Pavel Šmerk]

Lukas Svoboda wrote:

> 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:


No to @b = <>, (chomp @b), @b Ti pri danem vstupu vrati pole "aaa", 
"bbb", "ccc", 3, "aaa", "bbb", "ccc", do $a{"aaa"} se priradi 1 atd., do 
$a{3} undef, do $a{"aaa"} taky undef atd. Pak se v nesetrizenem poradi 
vypisou klice s dvojteckou (hodnoty jsou vsude undef). Ten druhy priklad 
dela samozrejme neco jineho.

Protoze sem zase urcite Adelton napise trikrat rychleji -- jak presne se 
prosim, Adeltone, jmenuje ten mailing list odpovidajici teto konferenci? 
Uz ten Tvuj prispevek nejak vyexpiroval a ja to zapomnel. Diky.

P.

P.S. Kdyz nebudes psat jako prase, bude Ti to fungovat ;-)

> 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