Re: Common Perl Pitfalls

in reply to Common Perl Pitfalls

while($string=~ m/reg(ex)/)
{
    $string=~ s/$1/ister/;
}
[download]

That frightens me a bit. Your substitution replaces the first occurance "ex" with "ister" in the string, no matter whether "ex" is part of "regex" or something else:

my $string = "Sometimes there are extra effects you didn't foresee whe
+n using a regex.";

while($string=~ m/reg(ex)/)
{
    $string=~ s/$1/ister/;
}

print $string;
[download]

Output:

Sometimes there are istertra effects you didn't foresee when using a r
+egister.
[download]

Istertra?

Comment on Re: Common Perl Pitfalls Select or Download Code

Replies are listed 'Best First'.
Re^2: Common Perl Pitfalls by Joe_ (Beadle) on May 14, 2012 at 22:21 UTC
You are quite right. It's a terrible mistake on my part. I will edit it.	[reply]

In Section Meditations