Comment supprimer des sauts de ligne avec une regex Perl?

Question

quand je lance:

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

Je me attends résultat soit:

str abc... multiline... 

place je reçois

str abc... multiline... 
123 

Où vais-je tort?

Answer 1

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

modificateur

/s dit Perl pour traiter la chaîne mise en correspondance comme une seule ligne, ce qui provoque . pour correspondre à des sauts de ligne. Ordinairement, ce n'est pas le cas, ce qui entraîne votre comportement observé.

Answer 2

Vous devez utiliser le modificateur 's' sur votre regex, de sorte que le point '.' correspondra à toutes les nouvelles lignes suivantes. Donc ceci:

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

Devient ceci:

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