Hi All,

I am trying to perform the below csh code in Perl, but i am unfamiliar with Perl. Can anybody give me some advice on it ?

Csh Code:

cat filename |grep AAA| grep BBB| awk '{print("already_appended")'

 
perl -lne'print "already_appended" if /AAA/ and /BBB/' filename

if($string =~ m/(AAA|BBB|CCC)/)
  {print "We've got a match!\n"}

Hi sysgate,

Think if($string =~ m/(AAA|BBB|CCC)/) is an OR function.

In short, the purpose of the below csh shell actually grabs the lines which contain both the term AAAand BBB.
However, the Perl code which you showed me will only grab those lines containing either AAA or BBB or both.

Can anybody give me some advice ?
Was wondering if the below Perl code can work ?

 if($_ =~ "AAA" && $_ =~ "BBB" ) 
{print "We've got a match!\n"}

Yes, just like in the code Radoulov already posted above. ($_ is the default target for matching, so Radoulov left it out.)

Hi Era,

What if the terms we want to match is an array ?
I tried the below and it doesn;t seem to work.

Eg

 if($_ =~ @array_x[$num] && $_ =~ @array_y[$num] ) 
{print "We've got a match!\n"}

 if (/$array_x[$num]/ && /$array_y[$num]/) {
   print "We've got a match!\n"
  }