2008-05-06 Perlメモ ナベアツ ワンライナー Perl perl -e 'print map { !($_ % 3) || /3/ ? "aho!" : $_, "\n" } 1..40' 1行では5の倍数で犬っぽくするのはしんどい