Perlにも少し慣れてきたのでだんだんワンライナーで試すことが増えてきたぜ． $ perl -e 'use Data::Dumper; my $foo; print Dumper($foo); print "set\n" if (defined($foo->{foo})); print Dumper($foo);' $VAR1 = undef; $VAR1 = {}; 値変わらないでよ!! …