【发布时间】：2012-12-03 17:24:34
【问题描述】：
我想从 bin 文件中读取一个字符串（字符串从固定偏移量开始，以空值结尾）。
如何在 Perl 脚本中执行此操作？
【问题讨论】：
【发布时间】：2012-12-03 17:24:34
【问题描述】：
seek 必要时移到正确的位置，然后使用：
my $str;
{ local $/ = "\0"; $str = <$fh>; }
die "Premature EOF" if !defined($str) || $str !~ /\0\z/;
chop($str);
【讨论】：
-
不，sysread 应该保留用于特殊情况（并且在 nul 之前不容易阅读）
-
哦，我错过了，我们不知道实际的读取长度。那就是最简单的方法。