Adding a quantifier to substitution

[mohyeldin55]

I was wondering if there is a work around to add a quantifier if I
need to replace a certain pattern with X multiples of certain
character or string like:

$str=~s/<pattern>/R{15}/g; -------> how to replace the pattern with
"R" repeated 15 times?

Thanks.

 

[Hartmut Camphausen]

Hi,

Am 29 Jul 2008 schrieb mohyeldin55:

...replace a certain pattern with X multiples of certain character or string like:

^
--'

Quite close

To repeat a string several times, use the operator 'x':

my $five_times_an_a = 'a' x 5; # gives 'aaaaa'


Read perdoc perlop

hth + mfg, Hartmut

 

[Paul Lalli]

I was wondering if there is a work around to add a quantifier if I
need to replace a certain pattern with X multiples of certain
character or string like:

$str=~s/<pattern>/R{15}/g;  -------> how to replace the pattern with
"R" repeated 15 times?

The /e modifier of a s/// changes the replacement from a string to a
piece of Perl code to evaluate. So use that modifier, and make your
replacement be code that returns a string comprised of 15 R's:

$str =~ s/<pattern>/'R' x 15/ge;

Paul Lalli

 

[mohyeldin55]

The /e modifier of a s/// changes the replacement from a string to a
piece of Perl code to evaluate.   So use that modifier, and make your
replacement be code that returns a string comprised of 15 R's:

$str =~ s/<pattern>/'R' x 15/ge;

Paul Lalli

Thanks, that really helped.