http://qs321.pair.com?node_id=210791


in reply to Re: Re: Re: Re: Re: Re: Re: conditional match in regex
in thread conditional match in regex

Right.  I was just showing how the regex works.
$ perl -le'"%xyz"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(%)(xyz)()
$ perl -le'"%xyz>"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(%)(xyz>)()
$ perl -le'"<xyz>"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(<)(xyz)(>)

[download]

  p

In Section Seekers of Perl Wisdom