blog.nomadscafe.jp

おいぬま日報(不定期)さんの記事で、

でもこれは下記のように書くことが出来ます。
sub func {
my %args = @_;
my $hoge = $args{hoge} || 'fuga';
# なんか処理
}
なんとこれを知っているだけで3行もコードが節約出来るんです。

とあって、短く書けてエレガントです。

これだけでも97%ぐらいはかまわないのですが、使い続けるとはまりどころがあります。

&func(hoge=>0);
&func(hoge=>"");

として、$hogeに0や""を入れたい場合がそれ。
なぜなら、0や""がブール値コンテキストにおいて、偽となるからです。

Perlにおける真偽の規則は、らくだ本から引用ですが、

1. ""と"0"を除き、すべての文字列は真である
2. 0を除き、すべての数値は真である
3. すべてのリファレンスは真である
4. すべての未定義値は偽である

となってます。なので、$hogeに""や0を入れたくて、&func(hoge=>0);としたとしても

my $hoge = $args{hoge} || 'fuga';

において、$args{hoge}が偽と判断され、'fuga'になってしまいます。
これに対応するならば、definedを使って

my $hoge = (defined $args{hoge}) ? $args{hoge} : 'fuga';

などとすると、希望通りに動くようになります。
$args{hoge}が2回あるので、ちょっとかっこわるいですがね。

↓最近ようやく買ったのですが、やはり勉強になります。

それとかっこいいコードを書くなら、id:naoya氏監修の

がおすすめ。