2008-03-19 definedのもう一つの使い方。 Perl 未定義値かどうかを確認する以外に、サブルーチン名を与えるとその有無を返すとか。 print defined &routine ? 'yes, exists.' : 'no, not found.';