Hi All,

Sto cercando di eseguire il codice al di sotto csh Perl, Ma che non hanno familiarità con i am Perl. Qualcuno mi può dare qualche consiglio su di esso?

Csh Codice:

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,

Pensare if ($ stringa \u003d ~ m / (AAA | BBB | CCC) /) O è una funzione.

In breve, lo scopo della realtà al di sotto della shell csh afferra le righe che contengono sia il termine AAAe BBB.
Tuttavia, la Perl codice che mi avete dimostrato di prendere solo quelle righe che contengono sia AAA o BBB o entrambi.

Qualcuno mi può dare qualche consiglio?
Chiedevo se il sottostante Perl codice può funzionare?

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

Sì, proprio come nel codice Radoulov già inviato in precedenza. ($ _ È la destinazione predefinita per corrispondenza, in modo Radoulov lasciato fuori.)

Era Hi,

Che cosa succede se i termini che vogliamo partita è un array?
Ho cercato sotto e doesn; t sembra funzionare.

Ad esempio,

 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"
  }