Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

461:nobodyさん
07/10/30 23:58:03
>>459
それでいいんじゃね？
各サブルーチンに戻り値があるなら「三項演算子」って手もあるし、
以下の様なやり方もあるけど、普通に書いてメンテ出来るものならば
バカにされても放置しとけば？

my %hash = (
　　post => sub { 1 } , # &post の内容を書く
　　edit => sub { 2 }, # &edit の内容
　　delete => sub { 3 }, # &delete の内容
) ;
print $hash{'edit'}->() || q{error} ; #q{error} には&error あたりを、、、

ソース全体を見たら綺麗な書き方があるかもしれんが、
それに関しては情報不足。

次ページ