如何使用Perl访问文件中的特定字节范围？

Question

将磁盘上文件的指定字节范围提取到变量中最方便的方法是什么？

Answer 1

seek to the start of the range, read the desired number of bytes (or sysseek / sysread -- see nohat's comment).

open $fh, '<', $filename;
seek $fh, $startByte, 0;
$numRead = read $fh, $buffer, $endByte - $startByte; # + 1
&do_something_with($buffer);

Answer 2

Sometimes I like to use File::Map , which lazily loads a file into a scalar. That turns it into string operations instead of filehandle operations:

    use File::Map 'map_file';

    map_file my $map, $filename;

    my $range = substr( $map, $start, $length );