perl - 从 bin 文件中读取一个空终止字符串

Question

我想从 bin 文件中读取一个字符串(该字符串从固定偏移量开始并且以 null 终止)。

如何在 Perl 脚本中执行此操作？

Answer 1

seek如有必要，到正确的位置，然后使用:

my $str;
{ local $/ = "\0"; $str = <$fh>; }
die "Premature EOF" if !defined($str) || $str !~ /\0\z/;
chop($str);