Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
456:nobodyさん 07/10/29 13:25:31 use strict; use warnings; test('1111222' => 1 ); test('1111222' => 2 ); test('111122211' => 1 ); test('111122211' => 1 , 1); test('1111136' => 1 ); sub test {printf "%s:%s:%s\n",$_[0],$_[1],_test(@_)} sub _test { local($a,$b); (sort {$b<=>$a} map {length($_)} ($_[0] =~ m{($_[1]+)}g) )[ $_[2] ? -1 : 0 ]; } 457:nobodyさん 07/10/29 17:04:12 my $i = '1' ; print +( length ) . qq{\n} for split /[^$i]+/ ,$a ; 458:456 07/10/29 19:24:03 見直したらgdgdだったので修正しとく sub _test { ( sort map length,$_[0] =~ /(${_[1]}{2,})/g )[$_[2] ? 0 : -1] } 459:nobodyさん 07/10/30 23:38:44 一つのファイルで処理がたくさん書いてあって分岐させる時に、 例えば $mode = $cgi->param('mode'); というデータを受け取って、処理の場合わけをする場合どういう書き方がエレガントなんでしょうか？ 現状は if ($mode eq 'post') { &post} elsif ($mode eq 'edit') { &edit;} elsif ($mode eq 'delete') { &delete} else { &error} こんな感じなのですが、それは初心者の書き方だって馬鹿にされました。 悔しいのでもっと効率的な方法があったら教えてください。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4917日前に更新/271 KB
担当:undef