如何使用Perl正则表达式删除换行符？

Question

当我跑:

perl -e '$x="abc\nxyz\n123"; $x =~ s/\n.*/... multiline.../; printf("str %s\n", $x);'

我希望结果如下:

str abc... multiline...

相反,我得到了

str abc... multiline...
123

我哪里错了？

Answer 1

$x =~ s/\n.*/... multiline.../s

/s修饰符告诉Perl将匹配的字符串视为单行,这会导致.匹配换行符.通常它没有,导致你观察到的行为.