2012-05-29 引数チェックネタ Perl ハッシュを引数にとるサブルーチンでは入り口で明示的な受け取り方をしてほしい - Cside::StudyMemo - Csideグループ deleteしていって・・・なるほど。 よくやる手 my @list = qw( foo bar baz ); foreach (@list) { warn "$_ not defined!" unless exists $arg{$_}; }