perlで、undefとdeleteの違い

まー、そのまんまですけど

#!/usr/bin/perl

use strict;
use warnings;

my %a = (a => 100, b => 200);
delete $a{a};

print join(',', keys %a). "\n\n";

と

#!/usr/bin/perl

use strict;
use warnings;

my %a = (a => 100, b => 200);
undef $a{a};

print join(',', keys %a). "\n\n";

では、キーの出力が違いますね

自分メモ