Как я могу открыть двоичный файл в Perl, изменить ТОЛЬКО первый байт и записать его обратно?
Очень похожий на Изменение одного байта в файле в C, но в Perl вместо C.
Как я могу открыть двоичный файл в Perl, изменить ТОЛЬКО первый байт и записать его обратно?
5
задан Community 23 May 2017 в 11:47
поделиться
2 ответа
open my $fh, '+<', $file or die "open failed: $!\n";
my $byte;
sysread($fh, $byte, 1) == 1 or die "read failed: $!\n";
seek($fh, 0, 0);
syswrite($fh, $new_byte) == 1 or die "write failed: $!\n";
close $fh or die "close failed: $!\n";
12
ответ дан 18 December 2019 в 09:06
поделиться
Много способов сделать это. Эффективный способ - открыть файл в режиме произвольного доступа с помощью open $fh, '+<':
my $first_byte = chr(14); # or whatever you want the first byte to be
open my $fh, '+<', $the_file;
seek $fh, 0, 0; # optional - cursor is originally set to 0
print $fh $first_byte; # could also use write or syswrite functions
close $fh;
6
ответ дан 18 December 2019 в 09:06
поделиться
Другие вопросы по тегам: