Как я могу получить доступ к определенному диапазону байтов в файле, используя Perl?

Question

Какой самый удобный способ извлечь указанный диапазон байтов файла на диске в переменную?

Answer 1

seek до начала диапазона, read желаемое количество байтов (или sysseek / sysread - см. Комментарий nohat).

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

Answer 2

Иногда мне нравится использовать File :: Map , который лениво загружает файл в скаляр. Это превращает его в строковые операции вместо операций с дескрипторами файлов:

    use File::Map 'map_file';

    map_file my $map, $filename;

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