Perlについての質問箱 34箱目at TECHPerlについての質問箱 34箱目 - 暇つぶし2ch90:デフォルトの名無しさん 08/01/18 20:18:43 >>87 if ($a =~ m/^(a|b)$/) if (grep { $a eq $_ } qw(a b)) : 好きなように書け 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch