Perlでファイルからノンリニアにデータを取得する

ファイルからノンリニアにデータを取得するには、C言語ではseek()関数を使用してファイルの読み出し位置を変更しますが、Perlでも同様にseek()関数が用意されています。

seek ファイルハンドル, 位置, 起点

例えば、ファイルの先頭から128バイト目の10バイトを読み込みたい場合は、

my $file_name = "./data.txt";
open my $fh, "<", $file_name or die "Can't open the file $file_name\n";
seek $fh, 128, 0;
read $fh, my $data, 10;
print "data: $data\n";

という感じに書きます。

タグ：SEEK perl