http://www.perlmonks.org?node_id=185068


in reply to look-behind regex

s/(toto)|foo/${[$1,'bar']}[!$1]/

Replies are listed 'Best First'.
Re: Re: look-behind regex
by Anonymous Monk on Jul 25, 2002 at 02:21 UTC
    Don't be afraid to use the e modifier: s/(toto)|foo/defined $1 ? $1 : 'bar'/e Cheers,
    -Anomo
[reply]
[d/l]
      How about s/(toto)|foo/$1||'bar'/e
[reply]
[d/l]
        TMTOWTDI...

        But the reason I used defined() was that I wanted to give a general solution. Someone might copy the code and change toto to something else that matches something that is false without reflecting on how it works. Or you might change it yourself later. Then you perhaps abstract the pattern, and suddenly you have a hard-to-trace bug. I always try to code so that I don't bite myself later on when I patch my code.

        Cheers,
        -Anomo
[reply]
[d/l]

In Section Seekers of Perl Wisdom