Lagring af output fra awk til et perl variabel

userix · #1 (**permalink**) 10-08-2008

Hvordan vil jeg viderebringe awk output til en perl variable?

For eksempel, jeg vil gemme værdien i 4. kolonne i variablen kaldet test. Mit bedste gæt er noget, som følge, men jeg er sikker på, at dette ikke er korrekt.

Code:

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

otheus · #2 (**permalink**) 10-08-2008

Perl støtter "backtick" operatør, ligesom i skallen. Den eneste forskel er, at Perl ikke konvertere linefeeds til rum eller klemme ekstra mellemrum. Så:

Code:

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

er sandsynligvis, hvad du ønsker.

matrixmadhan · #3 (**permalink**) 10-08-2008

Citat:

Oprindeligt Indsendt af userix

Hvordan vil jeg viderebringe awk output til en perl variable?

For eksempel, jeg vil gemme værdien i 4. kolonne i variablen kaldet test. Mit bedste gæt er noget, som følge, men jeg er sikker på, at dette ikke er korrekt.

Code:

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

Hvorfor har du ikke bruger funktionen i perl selv?

For at gemme den 4. kolonne værdi i perl,

Code:

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

Er, hvad De mente?

userix · #4 (**permalink**) 10-09-2008

Jeg vil gerne søge efter en række fundet i 4. kolonne på en bestemt linje i en fil og gemme denne værdi til en variabel. Denne fil indeholder over 7000 linjer data. De specifikke linje Jeg søger efter indeholder bogstaverne »OXT 'Dette er grunden til, at jeg havde tænkt på at bruge awk at finde den linje, der indeholder' OXT 'og derefter håndteringshåndtag nummeret fra 4. kolonne i denne linje kun. Ville at arbejde med split?

otheus · #5 (**permalink**) 10-09-2008

Han er behandlingen af en fil gemmes i $ _. For, at de awk en-linjerederierne ser pænere. Men det vil normalt blive erstattet med:

Code:

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

otheus · #6 (**permalink**) 10-09-2008

Absolut. Er du på udkig efter præcis en linje, eller mere? Er de kolonner adskilt af whitespace? Antages ja til alle svarene ovenfor:

Code:

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

epoke · #7 (**permalink**) 10-09-2008

Det vil kun tage den første forekomst, selv om. Den oprindelige awk script returnerer alle matchende linjer. Ikke svært at løse, hvis du kender nogen PerlBare at nævne, hvis du er ny her.

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd	Thread Starter	Forum	Svar	Last Post
Hvordan man får følgende output i perl	e-mail-lalit	Shell Programmering og Scripting	1	08-08-2008 02:20 PM
Indstil en variabel fra awk output	Cranie	UNIX for dummyer Spørgsmål & svar	3	10-11-2007 10:39 AM
At gemme output i en variabel	Sudhakar333	Shell Programmering og Scripting	2	07-10-2007 09:45 AM
hvordan output awk til en variabel	bashirpopal	UNIX for dummyer Spørgsmål & svar	4	04-02-2003 12:02 PM
Lagring Perl scrpits i et UNIX Shell	hagrid	UNIX for dummyer Spørgsmål & svar	3	06-21-2001 01:42 PM

Thread Tools	Søg denne tråd
Vis Printvenlig Version Email denne side	Søg denne tråd: Avanceret søgning
Display Modes	Bedøm denne tråd
Switch to Linear Mode Hybridtilstand Switch to Tråd Mode	Bedøm denne tråd: