Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
117:nobodyさん 08/03/14 01:41:34 長くて見づらいけど、処理量が多くて重くなるよりはマシかな。 そんな劇的な違いは無いとしても気分的になんとなくｗ 118:nobodyさん 08/03/14 01:51:12 重いと言っても何百万回も繰り返さないから、こうしちゃうなｗ if($aaa =~ /^(1|5|13|17|25|34)$/) 119:nobodyさん 08/03/14 06:02:08 %tmp = map { $_ , 1 } ( 1, 5, 13, 17, 25, 34 ) ; if ( defined $tmp{$aaa} ){ 　print "俺の名を言ってみろ\n" ; } 120:nobodyさん 08/03/14 11:41:19 >>116 grep使う方法だとこうかな？ if ( grep { $aaa == $_ } qw( 1 5 13 17 25 34 　) ) { 　 　 # code here } 121:nobodyさん 08/03/14 11:42:57 # no 5.10 grep { $aaa == $_ } qw/1 5 13 17 25/; # use List::MoreUtils qw/any/; any { $aaa == $_ } qw/1 5 13 17 25/; # use 5.10 $aaa ~~ [qw/1 5 13 17 25/]; 122:nobodyさん 08/03/14 11:53:06 ほとんどの場合、ブロックより式の方が早いので my %tmp = map +( $_ => 1 ), ( 1, 5, 13, 17, 25, 34 ); grep $aaa == $_ ,( 1, 5, 13, 17, 25, 34 );

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4952日前に更新/211 KB
担当:undef