via ファイルを作成する - Perlゼミ(サンプルコードPerl入門) これ、タイミングの関係でまずいことが起きる気がする。 my $file = "sample_20080519_$$.txt"; # $$ はプロセスID if( -e $file ){ # ← 上書きしてはいけないので、存在をチェック。 croak "$fi…