设置$/=“\R”是否允许chomp()正确处理perl中的大多数文件?

设置$/='\R'是否允许chomp()正确处理perl中的大多数文件?

$/ 到 '\R' 会考虑两个字符的序列 "\\R" 作为新线。
$/ 到 "\R" 将导致有关 Unrecognized escape

\R 不是字符串,但仅在正则表达式上下文中有意义。但是 明确声明:

$/ 是字符串,不是正则表达式。awk必须更好。:-)

我创造了 Acme::InputRecordSeparatorIsRegexp 前一段时间只是个玩笑,但它确实为限制 $/ 不能是正则表达式。对于0.04版(刚刚上传),你可以说

use Acme::InputRecordSeparatorIsRegexp ':all';

open my $fh, '<:irs(\R)', 'file-with-ambiguous-line-endings.txt';
autochomp($fh,1);     # or (tied *$fh)->autochomp(1)
@lines = <$fh>;
...