switch文がほすぃ (perl)

Filed in Perl, prog

 今までのエントリでも書いた様に只今Perlでもにょもにょしてるわけですが。
 なんかね、if-elsif-elseブロック書いてると欲しくなるんですよswitch文。
 そこで擬似的に実現する方法を考えてみますた。
  1.ブロックを利用する方法
my $var = 検査される値;
switch:{
  $var =~ /条件文字列/ && do{
    処理;
    last switch;
  }
}
 2.配列やハッシュを利用する方法
$var = 検査される値;
@switch_a = {
  &{ 処理; },
};
&{$switch_a[$var]};
%switch_h = (
  key => &{ 処理; },
);
&{$switch_h{$var}};
 ハッシュを使った方法なんかは割と多用しとります。
 例えばCGIなんかでモード毎の処理に飛ばすときなんかは以下の様にやります。
%command_do = (
  RSS => \&do_RSS,
  write => \&do_write,
);
&{$command_do{$mode}};
sub do_RSS{
  (snip)
}
sub do_write{
  (snip)
}
 これ割と重宝します。YukiWikiなんかでも使われてます。
 興味有る方お試しあれ。


Feedback

Comments

6 Responses to “switch文がほすぃ (perl)”
  1. へぼたろ より:

    ほぉ なるほどねぇ。2番は好きになれないけど、1番はいいねぇ。すんばらしぃ。2番は引数の扱いでBugの温床になりそうだ。
    おいらは、elsif 好きなんで elsifを使うと思うけどね(´Д`)

  2. 長月葵 より:

    おぉ、たろタソみとったのか。
    ちなみに1番の方法はwhileやforeachなんかと併用するときにはデフォルト変数の$_が使えるので正規表現部分で$変数=~が省略できます。よりswitch文に近い見た目で(゚д゚)ウマー

  3. kira より:

    みつけちゃった!
    っつーか、おひさだな!
    独自ドメイン取ったのか
    おれも3つもってるぞ
    comとccとcx な
    ccだけ運用している
    comはサイドビジネス用で、近々運用開始さ
    たまにはチャットしようぜぃ

  4. 長月葵 より:

    おー! きらり~ん! めっさおひさ~!
    久しぶりにチャットもしたいねぇ。でもBMはもうアンインスコ済みなのです(´・ω・`)
    MSN辺りで良ければいつでも付き合うよ。また今度よろ(´∀`)

  5. kira より:

    BMもかなり下火だぞ・・・
    odigoは4.0が現役で使えるでよ~3.1のIDも使えるし~
    ま、使ってる人は少ないがな・・・・
    ちなみにおいらは一年前にまたもや転職して、通算6社目の会社で働いてるぞ
    aoiちゃんが東京にくる機会があったら是非遊ぼうじゃないか
    うちに泊まってくれてもいいしな
    んじゃ!

  6. 長月葵 より:

    > odigoは4.0が現役で使えるでよ~3.1のIDも使えるし~
     ぉ、4.0出てたのか。3.1のIDが行けるって事は詰まり2.0以降のIDなら何でも使えるってことじゃないのけ?(´A`)
     気になるのはバグの具合、2.5以降バグの巣穴だったOdigoが何処まで穴埋め出来たのか。
    > aoiちゃんが東京にくる機会があったら是非遊ぼうじゃないか / うちに泊まってくれてもいいしな
     じゃあ行くときはMSNか何かで声掛けるね。宿代浮いた(´∀`)
     ふふ、次の日仕事って言っても朝まで寝かせてあげないんだから♪


Warning: sprintf() [function.sprintf]: Too few arguments in /home/users/2/lolipop.jp-dp07042166/web/wordpress/wp-includes/widgets.php on line 1042
Oenology Post Formats
Click to view/hide

Warning: sprintf() [function.sprintf]: Too few arguments in /home/users/2/lolipop.jp-dp07042166/web/wordpress/wp-includes/widgets.php on line 1042
Posts Calendar
Click to view/hide
2005年1月
    2月 »
 1
2345678
9101112131415
16171819202122
23242526272829
3031  

Warning: sprintf() [function.sprintf]: Too few arguments in /home/users/2/lolipop.jp-dp07042166/web/wordpress/wp-includes/widgets.php on line 1042
アーカイブ
Click to view/hide

Warning: sprintf() [function.sprintf]: Too few arguments in /home/users/2/lolipop.jp-dp07042166/web/wordpress/wp-includes/widgets.php on line 1042
最近の投稿
Click to view/hide