How can I add a string before every match?

user_14833272 0
Viewed 118

How can I add word info as leading everywhere there is word matching zzzz with regex?

like infozzzz

#!/usr/bin/perl 

$string = " zzzz  mike  zzzz stone zzzz";
$string =~ m/zzzz/;
perl regex
1 Answers

Use the substitution operator like so:

$string =~ s/(zzzz)/info${1}/g;

Or simply:

$string =~ s/zzzz/info$&/g;

$variable =~ s/PATTERN/REPLACEMENT/g; : Replace PATTERN with REPLACEMENT in $variable.
(zzzz) : Match literal string zzzz, capture using parenthesis into capture variable $1.
$& : Capture variable that contains the entire matched PATTERN.
/g : A regex modifier that tells to match the pattern repeatedly.

SEE ALSO:
perldoc perlre: Perl regular expressions (regexes)
perldoc perlre: Perl regular expressions (regexes): Quantifiers; Character Classes and other Special Escapes; Assertions; Capture groups
perldoc perlrequick: Perl regular expressions quick start

user_9676210
Related