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


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

This also seems to work (at least in perl 5.6.1):
/
 ^
   ( [\$%@*] | (<) )
   ( .* )
   (? (2) > )             # ( (2) stands for $2 (the (<) above))
 $
/x;

[download]


  p

Replies are listed 'Best First'.
Re: Re: Re: conditional match in regex
by jryan (Vicar) on Nov 05, 2002 at 21:47 UTC
    Yes, that will work, but yours has the problem that it creates $1, $2, and $3. I wanted to limit the regular expression so that $1 = type, and $2 = name.
[reply]
      Right, this way $1 = type and $3 = name.  Oh well...

        p
[reply]

        Actually, $1 = type if the type is $, @, %, or *; however, in the <name> case, the only way to check its type is by nested conditionals outside the regex; something like: 

        if ($2) {
    if ($1 eq '$') {
        ... 
    }
    elsif ($1 eq '@') {
        ... 
    }
    ... 
}
else {
    ... 
}

        [download]

        Which, IMHO, is a huge pain in the behind compared to a single if-elsif chain. Why do more work than you have to?

[reply]
[d/l]

In Section Seekers of Perl Wisdom