2006-01-16 Mon
* 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 よくわかんね．
[
コメントを全部見る / コメントを書く]
[
TrackBack (
)]
[固定リンク]
* ラーメンズ 日本の形 土下座 [misc][rahmens]
寿司の方 [2005-12-08-2] はどうも消えちゃったっぽい．
元ネタはこれか．
teevee graphics / VIDEO VICTIM
(追記) リンク先の動画は消えていますが，YouTube で見られるっぽいです．トラックバックで頂いた情報．ありがとうございます．
YouTube はいつまで持つんだろうなあ．