2008-03-15から1日間の記事一覧
sysopenでファイルをオープンする。 use Fncl; sysopen(MODEM, "/day/cua0, O_NONBLOCK|O_RDRW or die "Cannot" open model: $!\n);
例1 $old_fh = select(OUTPUT_HANDLE); $| = 1; select($old_fh); 例2 use IO::Handle; OUTPUT_HANDLE->autoflush(1); 例3 use IO::Handle; $fh->autoflush(1);
多くのプロセスが同じファイルを同時に更新できるようにしたい。 flockを使用して、全てのプロセスにロックを遵守させる。 use Fcntl qw(:flock); # LOCK_*定数を使用するため open(FH, "+<", $path) or die; flock(FH, LOCK_EX) or die; # ここでファイルを…