从bin文件中读取以NULL结尾的字符串

Question

我想从bin文件中读取一个字符串（该字符串从固定偏移量开始并以null结尾）。

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

Answer 1

seek到合适的位置，如果有必要，再使用：

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