Re^6: Please correct me in the above regular expression

This node falls below the community's threshold of quality. You may see it by logging in.

Comment on Re^6: Please correct me in the above regular expression

Replies are listed 'Best First'.
Re^7: Please correct me in the above regular expression by GrandFather (Saint) on Mar 26, 2021 at 00:49 UTC
`use strict; use warnings; my $input = <<IN; int abc; .abc(pqr); .abc(abc) IN my $output = <<OUT; int abc_1; int abc_2; .abc(pqr), abc_1(abc_1), .abc_2(abc_2) OUT my $match = <<MATCH; int abc; .abc(pqr); .abc(abc) MATCH print $output if $input =~ /\Q$match\E/;` [download] Perhaps you can ask a better question? Maybe you can show us some code we can run that shows the problem you are having? Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: Please correct me in the above regular expression
by GrandFather (Saint) on Mar 26, 2021 at 00:49 UTC

use strict;
use warnings;

my $input = <<IN;
 int abc;
.abc(pqr);
.abc(abc)
IN

my $output = <<OUT;
int abc_1;
int abc_2;
.abc(pqr),
abc_1(abc_1),
.abc_2(abc_2)
OUT

my $match = <<MATCH;
 int abc;
.abc(pqr);
.abc(abc)
MATCH

print $output if $input =~ /\Q$match\E/;
[download]

Perhaps you can ask a better question? Maybe you can show us some code we can run that shows the problem you are having?

Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

[reply]
[d/l]