Commit | Line | Data |
---|---|---|
cc02ea56 JC |
1 | #!perl |
2 | # examples shamelessly snatched from perldoc -f map | |
3 | ||
4 | # translates a list of numbers to the corresponding characters. | |
5 | @chars = map(chr, @nums); | |
6 | ||
7 | %hash = map { getkey($_) => $_ } @array; | |
8 | ||
9 | { | |
10 | %hash = (); | |
11 | foreach $_ (@array) { | |
12 | $hash{getkey($_)} = $_; | |
13 | } | |
14 | } | |
15 | ||
16 | #%hash = map { "\L$_", 1 } @array; # perl guesses EXPR. wrong | |
17 | %hash = map { +"\L$_", 1 } @array; # perl guesses BLOCK. right | |
18 | ||
19 | %hash = map { ("\L$_", 1) } @array; # this also works | |
20 | ||
21 | %hash = map { lc($_), 1 } @array; # as does this. | |
22 | ||
23 | %hash = map +( lc($_), 1 ), @array; # this is EXPR and works! | |
24 | ||
25 | %hash = map ( lc($_), 1 ), @array; # evaluates to (1, @array) | |
26 | ||
27 | @hashes = map +{ lc($_), 1 }, @array # EXPR, so needs , at end | |
28 | ||
29 |