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

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

462:nobodyさん
 07/10/30 23:59:04 
ああ、丸かぶりだorz...

463:nobodyさん
 07/10/31 00:10:35 
せめて、CGI::Applicationくらい使っとけって話なんじゃ。 
if文分岐も分かりやすいと思うが、へたに小細工するとますますへたっぴに見える。

464:nobodyさん
 07/10/31 12:11:23 
三項演算子ってタマに見かけるけど読みづらいんだよな。 
使いたくない書き方No1かも。

465:nobodyさん
 07/10/31 13:29:29 
　$expr1 ? $expr2 
: $expr3 ? $expr4 
: $expr5 ? $expr6 
:　　　　　　$expr7 
; 
 
書き方か頭が悪いんだろ

466:至急
 07/10/31 15:17:23 
CGIを自宅出張でサポートしてくれる方募集します。 
CGIに詳しく都内に来れる方であれば可能 
一日日払い即金で払います。 
詳細はメール下さい。

467:nobodyさん
 07/10/31 15:47:41 
>>459 
エレガントかしらないけどこんなパッケージ作ってる。 
(不要箇所削ったのでそのまま動くか不明) 
package Local::Base; 
use strict; 
use warnings; 
our $DEBUG = 0; 
sub class {ref$_[0]||$_[0]||__PACKAGE__} 
sub new  {(bless {} => class( shift() ))->init(@_)} 
sub mode  :method {shift->param('mode',@_)} 
sub method_name :method {shift->{method_name}->{ shift() }} 
sub default_method :method {die('不正なmodeを受け取りました')} 
sub init  :method { 
 my $self = shift; 
 my %param = @_; 
 $self->{method_name} = $param{method_name} || {}; 
 return $self->run_method( $self->mode , @_ ); 
} 
sub run_method :method { 
 my $self = shift; 
 my $method = $self->method_name( shift ); 
 $method  = 'default_method' unless $method && $self->can( $method ); 
 return $self->$method(@_); 
} 
1;

次ページ