ランダムアクセスを使って読み書きする - Perl入門ゼミPerl › ファイル入出力 › here 変更したい箇所だけをピンポイントで指定して、変更して書き戻すランダムアクセスのサンプルです。ランダムアクセスというのは一般的に固定長のバイナリファイルに対して使われますが、簡便のためここでは固定長テキストファイルを使います。 use strict; use warnings; # seek の位置を指定するオプションを使用するために使用 use Fcntl qw(:seek); # ランダムアクセスによってファイル内容を書き換える。 my $file = "data_20080810.txt"; # 読み書きモードでオープン(あまり安全でない) open(my $fh, "+<", $file) or die "Cannot open $file"; # 16バイト my $len_rec = 16; # レコードの先頭 my $pos_name
