2012-03-01 よくやる間違い Perl --- false --- my $dirname = dirname $dir; $xxx = "123" unless $dirname; --- true --- my $dirname = dirname $dir; $xxx = "123" unless -d $dirname;