Hur skulle jag klara awk produktion till en perl variabel?

Till exempel, jag vill spara värdet i den 4: e kolumnen i variabeln kallas test. Min bästa gissning är något som följer, men jag är säker på att detta inte är korrekt.

$test = system("awk '/NUMBER/{print \$4}' $_");

Perl stöder "backtick operatör, precis som i tanken. Den enda skillnaden är att Perl inte konvertera radmatningar till utrymmen eller krama extra mellanslag. Så:

$test=`awk .... $_`;

Varför inte du använder funktionen lämnas i perl själv?

För att lagra 4:e kolumn värdet i perl,

my @arr = split(/\|/, $var);
print $var[3];

Jag vill söka efter ett nummer i den 4: e kolumnen på en viss linje i en fil och lagra detta värde i en variabel. Denna fil innehåller över 7000 rader med data. De särskilda linje Jag söker innehåller bokstäverna "OXT" Detta är anledningen till att jag tänkte använda awk för att hitta den linje som innehåller "OXT" och sedan ta numret från den 4: e kolumnen i den raden bara. Skulle det fungera med split?

Han är behandlingen en fil som lagras i $ _. För att de awk one-liner ser trevligare. Men det skulle normalt ersättas med:

my @test;
if (open(FOO,$_)) { 
 while ($_=<FOO>) { 
   push @test,(split)[4];
 }
}
$test=join(" ",@test);

Absolut. Letar du efter exakt en linje eller mer? Är kolumner separerade med blanksteg? Om man antar ja till alla svar ovan:

my $target;
if (open(FOO,$_)) { 
 while ($_=<FOO>) { 
   next unless /OXT/;  # find OXT anywhere in line.
   $target=(split)[4];
   last;
 }
 close(FOO); # forgot this last time, though not really necessary.
}
# 4th field in $target

Det kommer bara att plocka ut den första händelsen, dock. Den ursprungliga awk script skulle visa alla matchande rader. Inte svårt att komma runt om du vet något Perl, Bara hänvisar till i fall du är ny på detta.