2011-05-11 openの使い方 perl if( open my $fh, "> hoge" ){ print $fh "hello,world\n"; close $fh; }else{ die("open:$!"); }