2008年07月02日 23:00 [Edit]
perl - デフォルト値のperlらしい指定法
これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。
Scalarによるデフォルト値
sub num{
my $num = shift;
# ....
}
ここは
sub num{
my $num = shift || -1;
# ....
}
の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、
sub num{
my $num = shift;
$num = -1 if not defined $num;
# ....
}
とすればOK。
sub num{
my $num = defined $_[0] ? shift : -1;
# ....
}
は二度@_にアクセスしている分ちょっといけてない。
もちろん、Perl 5.10.0ならば
sub num{
my $num = shift // -1;
# ....
}
とすることが出来る。
Hashによるデフォルト値
本題はこちらかな。このテクニック、意外と知られていないので。
sub conf{
my %arg = @_;
my %opt = ( mode => 1, warn => 1 );
%opt = ( %opt, %arg );
# ...
}
惜しい!仕組みは理解していているのに。
こうすればOK.
sub conf{
my %arg = (
lang => 'perl',
rank => 1,
@_ # ここが決め手!
);
# ...
}
これでうまく行ってしまうのです。
これは、オブジェクトの初期化の際に実に手軽です。こんな感じに。
package A::Module
sub new{
my $pkg = shift;
bless {
lang => 'perl',
rank => 1,
@_
}, ref $pkg || $pkg;
}
なお、このテクニックはCookbookにきちんと載っています。自己流も悪くないのですが、本も悪くないですヨ。Perlの場合、歴史が他のLLよりやや長いこともあって充実していますし、参考書に問題があればあればでそれに対するつっこみも数多くあります。参考書を「デフォルト値」として遣ってみましょう。
Dan the Perl Monger
Posted by dankogai at 23:00│Comments(5)│TrackBack(1)
この記事へのトラックバックURL
この記事へのトラックバック
404 Blog Not Found:perl - デフォルト値のperlらしい指定法
この人のおかげで小一時間悩んでた問題に
すっきりとした解法が見つかった。
初めて、弾さんのブログ役に立ったよ。
特にしたあたりの文が非常に!!!
sub num{
my $num = shift;
$num = -1 if ...
解決し〜〜〜た！【理系でも法律が好き】at 2008年10月03日 16:05
この記事へのコメント
某CPANモジュールのコードを解析中に、そのHashのデフォルト値テクが使われていて、なんだこれはたまげたなあ状態だったのですが、料理本に乗っているのですね。他人のコードもいいけど本もねってところですね。
しかしまあ、なんて楽しい言語なのだろう
しかしまあ、なんて楽しい言語なのだろう
Posted by m at 2008年07月03日 00:14
"$num = -1 if not defined $num;"の上の行、" = shift"が抜けていますよ。
Posted by Yuichirou at 2008年07月03日 00:34
Yuichirouさん、
ありゃまほんとだ。shiftuれいしました:)
Dan the Typo Generator
ありゃまほんとだ。shiftuれいしました:)
Dan the Typo Generator
Posted by 弾 at 2008年07月03日 02:34
こんにちは
In your sample code.
package A::Module
sub new{
my $pkg = shift;
bless {...}, ref $pkg || $pkg;
}
"ref $pkg || $pkg" seems to be old-style.
Please check out these URLs.
www(dot)perlfoundation(dot)org/perl5/index.cgi?ref_proto_in_object_constructors
perltraining(dot)com(dot)au/tips/2005-02-14.html
In your sample code.
package A::Module
sub new{
my $pkg = shift;
bless {...}, ref $pkg || $pkg;
}
"ref $pkg || $pkg" seems to be old-style.
Please check out these URLs.
www(dot)perlfoundation(dot)org/perl5/index.cgi?ref_proto_in_object_constructors
perltraining(dot)com(dot)au/tips/2005-02-14.html
Posted by aero at 2008年07月03日 12:27
俣���� �韲鱶袱 � WAP!
http://go4wap.net
http://go4wap.net
Posted by go4wap.net at 2008年10月04日 09:07
