Hoe zou ik awk uitvoer naar een perl variabele?

Bijvoorbeeld, ik wil om de waarde in de 4de kolom in de variabele genaamd test. Mijn beste gok is iets als volgt, maar ik ben er zeker van dat dit niet juist is.

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

Perl steunt de "backtick" exploitant, net als in het reservoir. het enige verschil is dat Perl niet omzetten linefeeds naar spaties noch uitstotings extra spaties. Dus:

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

Waarom heb je niet gebruik maken van de functie die in perl zelf?

Bewaart de 4de kolom waarde in perl,

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

Ik wil zoeken voor een aantal gevonden in de 4e kolom op een bepaalde lijn in een bestand en bewaar die waarde in een variabele. Dit bestand bevat meer dan 7000 lijnen van gegevens. De specifieke lijn Ik ben op zoek naar de letters "OXT 'Dit is waarom ik zat te denken van het gebruik van awk bij het vinden van de lijn die' OXT 'en vervolgens pak het getal uit de 4de kolom van die lijn alleen. Zou dat werken met split?

Hij is de verwerking van een bestand opgeslagen in $ _. Voor dat de awk one-liner oogt mooier. Maar het zou normaal gesproken worden vervangen door:

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

Absoluut. Bent u op zoek naar precies een regel, of meer? Zijn de kolommen gescheiden door spaties? Ervan uitgaande dat 'ja' tegen alle antwoorden hierboven:

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

Dat zal alleen kiezen uit het eerste exemplaar, dat wel. De oorspronkelijke awk script zou terugkeren alle overeenkomende lijnen. Niet moeilijk om te werken rond als je weet dat elke Perl, Alleen de vermelding in het geval u nieuw bent bij deze.