從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);