2012-03-01から1ヶ月間の記事一覧

PerlでPHPのin_arrayっぽいことしたいって話

某所で話題になったので。ぼくはこうしてる use strict; use warnings; my @arr = qw/ran miki suu dia/; if (grep {$_ eq "ran"} @arr) { warn "found ✖╹◡╹✖"; } unless (grep {$_ eq "amu"} @arr) { warn "not found ✖X◡X✖"; } 追記何度もチェックすると…