Re^4: Global substitution and report

It is nearly perfect, but

$wFound = $szText =~ s/$szSearchText/push @wPos, pos $szText;$szReplac
+eText/eg;

foreach my $Line (@wLines) {
    $wLine = Convert::posToLine($szText, $Line);
    if ($wLines[-1] != $wLine) {
        push @wLines, $wLine;
    }
    print "Line: $wLine\n";
}
[download]

doesn't replace correct if the replacement is something like "\L$1\E".

Comment on Re^4: Global substitution and report Download Code

Replies are listed 'Best First'.
Re^5: Global substitution and report by moritz (Cardinal) on Aug 27, 2007 at 11:06 UTC
There are two possible workarounds: A string eval, e.g. `my $subst = 'lc $1'; # and later $str =~ s{$pattern}{push @pos, pos $str; eval $subst; }eg` [download] The other one moves the push to the regex: `use strict; use warnings; use Data::Dumper; my @pos; my $str = "foobarbaz"; if ($str =~ s{([aeiou]+)(?{ push @pos, pos $str })}{<--$1-->}g){ print Dumper \@pos; print $str, "\n"; }` [download] But please read the notes in perlre on the `(?{...})` construct. Perl 6 in German -- Difficult Sudoku	[reply] [d/l] [select]
Re^6: Global substitution and report by Outaspace (Scribe) on Aug 27, 2007 at 12:03 UTC
Yes the second workaround is exactly what I needed Thanks	[reply]