swk's log - Perl の foreach

* Perl の foreach [tech]

ちょっとだけはまったのでメモ．

% perl -e '%x=(1=>1,2=>1,3=>1); foreach $i (keys %x) { print "$i\n"; $x{4}=1 if $i==2; }'
1
2
3
% perl -e '@x=(1,2,3); foreach $i (sort @x) { print "$i\n"; push(@x,4) if $i==2; }'
1
2
3
% perl -e '@x=(1,2,3); foreach $i (@x) { print "$i\n"; push(@x,4) if $i==2; }'
1
2
3
4

むー，気持悪い．Perl よくわかんね．