regex - 无法识别的转义\R 在 test.pl 第 7 行通过

Question

我有 perl 5，版本 22，(在 Cygwin 上，非常新的版本)。使用\R 似乎不起作用，尽管它应该起作用。

我只是用单行替换双行:

my $data = read_file($filename);
$data =~ s/\R\R/\R/g;

但是我收到错误“无法识别的转义\R 在 test.pl 第 7 行通过。”

我做错了什么吗？

Answer 1

正则表达式模式中的

\R 匹配许多不同的换行符序列。

\R 中的字符串文字(例如替换表达式^[1])是没有意义的。

使用

$data =~ s/(\R)\R+/$1/g;

更好的是，

$data =~ s/\R\K\R+//g;

---

1. 记住，

   s{...}{...}
   

   与

   相同

   s{...}{ qq{...} }e