perl - 如何在 Perl 中打开二进制文件，仅更改第一个字节，然后将其写回？

Question

非常类似于 Changing one byte in a file in C , 但在 Perl 而不是 C.

如何在 Perl 中打开二进制文件，仅更改第一个字节，然后将其写回？

Answer 1

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";