【Perl】ファイルロック(排他処理)について語ろうat PHP

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
847:833 05/12/09 22:07:31 　} 　$_HandleList{$handle} = $filename; 　return $handle; } sub close { 　my ( $handle, $option ) = @_; 　if( $option && ( $option == 1 || $option == 2 )) { 　　close( $handle ); 　　my $filename = $_HandleList{$handle}; 　　if( $_FileList{$filename}{'temp'} && $option == 1 ) { rename( $_FileList{$filename}{'temp'}, $filename ) } 　　elsif( $_FileList{$filename}{'temp'} && $option == 2 ) { unlink( $_FileList{$filename}{'temp'} ) } 　　unlink( $_FileList{$filename}{'lock'} ); 　　close( $_FileList{$filename}{'handle'} ); 　　delete( $_FileList{$filename} ); 　　delete( $_HandleList{$handle} ); 　} else { 　　close( $handle ); 　　delete( $_HandleList{$handle} ); }　} 1; 例： require './filelock.pl'; $file = filelock::open( "<count.dat" ); $data = <$file>; filelock::close( $file ); $data = $data + 1; $file = filelock::open( ">count.dat" ); print $file $data; filelock::close( $file, 1 );

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch