引数の値が定義済みかの真偽をPerl言語のdefined関数で確認
Perl言語のdefined関数を使用して、対象となる引数の値が定義済みかの真偽を確認しました。)
#!/opt/local/bin/perl
use strict;
use warnings;
print "Content-type: text/plan; charset=utf-8\n\n";
my $variable = "";
if(defined($variable)){
print "既定義";
} else {
print "未定義";
}
exit;
既定義
サンプルコードと出力結果です。引数の値が定義済みかの真偽を出力しました。