如果需要,使用seek将光标移到正确的位置,然后使用:my $str; { local $/ = "\0"; $str = <$fh>; } die "Premature EOF" if !defined($str) || $str !~ /\0\z/; chop($str);