perl - 如何让 Perl 匹配带有 Windows EOL 字符的文件中的\r

Question

我正在尝试编写一个 perl 脚本来识别带有 Windows EOL 字符的文件，但 \r 匹配似乎不起作用。

这是我的测试脚本:

#!/usr/bin/perl
use File::Slurp;

$winfile = read_file('windows-newlines.txt');
if($winfile =~ m/\r/) {
  print "winfile has windows newlines!\n"; # I expect to get here
}
else {
  print "winfile has unix newlines!\n"; # But I actually get here
}

$unixfile = read_file('unix-newlines.txt');
if($unixfile =~ m/\r/) {
  print "unixfile has windows newlines!\n";
}
else {
  print "unixfile has unix newlines!\n";
}

它的输出如下:

winfile has unix newlines!
unixfile has unix newlines!

我在 Windows 上运行它，我可以在 Notepad++ 中确认这些文件肯定具有正确的 EOL 字符:

Answer 1

除非 binmode 为 true(这不在您的代码中)read_file 会将 \r\n 更改为 \n 在 Windows 上。来自 the code :

# line endings if we're on Windows
${$buf_ref} =~ s/\015\012/\012/g if ${$buf_ref} && $is_win32 && !$opts->{binmode};

为了保持原来的编码设置binmode，如图in the documentation :

my $bin = read_file('/path/file', { binmode => ':raw' });