«

I have a somewhat strange requirement
I want to find if a regex matched what exactly matched

to reproduce this

------------------
my @x;
$x[0] = 'chi+ld*';
$x[1] = '\sjoke';

$_=getinput(); # for test assume $_="This is a joke";

if(/($x[0]|$x[1])/){
print "Matched '$1' \n";
}
-----------------


I want to know if $x[0] matched or $x[1] matched
What is the most efficient way of doing this ?


Thanks
Ram



--
For spammers only

http://pragatee.com

On Mar 20, 6:16 am, Ram Prasad <ramprasad...@gmail.com> wrote:
> I have a somewhat strange requirement
> I want to find if a regex matched what exactly matched
>
> to reproduce this
>
> ------------------
> my @x;
> $x[0] = 'chi+ld*';
> $x[1] = '\sjoke';
>
> $_=getinput(); # for test assume $_="This is a joke";
>
> if(/($x[0]|$x[1])/){
> print "Matched '$1' \n";}
>
> -----------------
>
> I want to know if $x[0] matched or $x[1] matched
> What is the most efficient way of doing this ?
>

One way:

if ( / ($x[0]) | ($x[1]) /x ) {
print defined $1 ? "first" : "second";
}

But, this may be more efficient often:

if ( /$x[0]/ ) { print "first" }
elsif ( /$x[1]/) { print "second" }

Ordering alternatives with the most likely
matches in front can greatly increase efficiency
too.

--
Charles DeRykus

Ram Prasad wrote:
> I have a somewhat strange requirement
> ...

You had posted the same question to the beginners mailing list just a
few minutes before you posted here, and I just spent a few minutes
answering the question there without knowing that you already had been
helped here.

DO NEVER DO THAT AGAIN !!!

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl