Re: Multiline replace regexp.

$q =~ s/^.*$a//sm;
[download]

The "m" is for multiline, which is a handy mnemonic.

Update: Although, as discussed in this thread the "m" is not actually required if we understand what nikolay wants correctly. We can golf the whole thing down to:

$q =~ s/.*$a//s;
[download]

as here:

#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 1;

my $q = 'qqqweqwe
asdasdasd
zxczxczxc
tyutyutyi
';
my $a = 'zxczxczxc';
my $want = "\ntyutyutyi\n";

$q =~ s/.*$a//s;
is ($q, $want, "With /s only and no anchor - matched");
[download]

Comment on Re: Multiline replace regexp. Select or Download Code

Replies are listed 'Best First'.
Re^2: Multiline replace regexp. by LanX (Saint) on May 21, 2018 at 13:10 UTC
Are the effects of /s really wanted here? update I'm confused, depending on how I understand the OP it's either /s or /m , but not both. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]
Re^3: Multiline replace regexp. by hippo (Archbishop) on May 21, 2018 at 13:27 UTC
Are the effects of /s really wanted here? Yes, because without `/s` the newlines are not matched. Code added for clarity: `#!/usr/bin/env perl use strict; use warnings; use Test::More tests => 2; my $q = 'qqqweqwe asdasdasd zxczxczxc tyutyutyi '; my $a = 'zxczxczxc'; my $want = "\ntyutyutyi\n"; my $t = $q; $t =~ s/^.$a//sm; is ($t, $want, "With /s - matched"); $t = $q; $t =~ s/^.$a//m; isnt ($t, $want, "No /s - not matched");` [download]	[reply] [d/l] [select]
Re^4: Multiline replace regexp. by LanX (Saint) on May 21, 2018 at 13:34 UTC
If that's what the OP wants, then better omit /m Otherwise is ^ matching for every line start, not only the strings start. It's at best redundant. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]

update