2008-05-18 性的に Perl Work やっとリファレンスにたどりついた リファレンスとCのポインタの部分を取っ替えひっかえ読んでたらなんかうれしくなった。 #悶々。1919なら2828になるだろjk $woman = [1,9,1,9]; print @{$man} = map{($_ > 5) ? $_ - 1:$_ + 1 } @{$woman};