Perl

Comparing items in arrays

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jun 2008

Posts: 89

Reputation: raul15791 is an unknown quantity at this point

Solved Threads: 7

raul15791

Offline

Junior Poster in Training

Comparing items in arrays

Jul 9th, 2008

Hi,

I try to compare items in two different arrays. This loop works well in another program of mine. But not in the current program i'm working on. Weird....

The output of the program shows
Nested quantifiers in regex; marked by <-- HERE........

 Help with Code Tags 
 PERL Syntax (Toggle Plain Text) 
for $3 (@obsolete_class_declare)         
{
    for $4 (@classB)
    {
        if ($4 =~ /$3/i)          #This line causing problem
        {
            print "$4\n";
            last;
        }
    }
 
}
for $3 (@obsolete_class_declare)         
{
    for $4 (@classB)
    {
        if ($4 =~ /$3/i)          #This line causing problem
        {
            print "$4\n";
            last;
        }
    }
    
}

•

Join Date: Jun 2008

Posts: 89

Reputation: raul15791 is an unknown quantity at this point

Solved Threads: 7

raul15791

Offline

Junior Poster in Training

Re: Comparing items in arrays

Jul 9th, 2008

I found the problem already. I put "**" in the arrays which causes some data reading problem. Solved!

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: Comparing items in arrays

Jul 9th, 2008

You should not use numbered scalar variables in your perl programs, $1 and $2 and etc are used internally by perl for pattern memory and are read only. If you have meta characters in your array elements just use the \Q option to escape them:

$foo =~ /\Q$bar/;

stuff like ** will be interpreted literally, but $ and @ will still be treated like a variable and interpolated.