2008-01-11から1日間の記事一覧

[perl][重複][チェック]

こんなんで perl hoge.pl hoge.pl 1 use strict; 2 use warnings; 3 4 my $file_name = '/var/tmp/hoge.pl'; 5 my $LOCK_FILE; 6 7 open( $LOCK_FILE , '>' , $file_name ); 8 9 flock $LOCK_FILE , 6 ; 10 11 system('./hoge2.pl'); 12 13 close( $LOCK_FIL…