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を伝えます。通常はそうではなく、観察された動作になります。

Answer 2

あなたの正規表現で 's'修飾子を使用する必要があります。それ以降の改行にマッチします。だから、この：

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

はこのようになります。

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