{{tag> note:perl undef}}
---json
{
    "title":"最も危険な未定義値(undef)",
    "description":"最も危険な未定義値(undef)"
}
---
\\
==== <icon name="md:card-text-outline" color="#0000ff" height="32px" width="32px"/> 最も危険な未定義値(undef) ====
\\
perlにはundefという値があって、例えば、

<code perl>
my $a = undef;
</code>

とすることで未定義値を使用することができるのですが、

<code perl>
print $a + 5;
</code>

のような計算を行った場合、未定義値が数値として評価されることで、0(ゼロ)とみなされてしまうとても危険な値です。\\

この値を正しく使う場合、defined()で未定義値の判別を行うことが必要になります。\\

<code perl>
my $a = undef;                                 # 未定義値
my $b = 0;                                     # 数値

print "[ \$a, \$b ] : ";
expr($a, $b);                                  # 等価

print "[ defined(\$a), defined(\$b) ] : ";
expr(defined($a), defined($b));                # 不等価

sub expr {
   my $a = shift;
   my $b = shift;

   if ($a == $b) {
      print "equal\n";
   }
   else {
      print "not_equal\n";
   }
}
</code>

結果:\\
<code perl>
[ $a, $b ] : equal
[ defined($a), defined($b) ] : not_equal
</code>

この他にも文字列はヌルとして解釈されるなど、扱いが非常に面倒な値です。\\

~~DISCUSSION~~