Ahorro en la producción de awk una variable de perl

userix · #1 (**Enlace permanente**) 10-07-2008

¿Cómo puedo pasar awk salida a un perl variable?

Por ejemplo, quiero guardar el valor en la 4 ª columna en la variable llamada prueba. Mi mejor estimación es algo que seguir, pero estoy seguro de que esto no es correcto.

Código:

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

otheus · #2 (**Enlace permanente**) 10-08-2008

Perl apoya el "backtick" operador, al igual que en el depósito. la única diferencia es que Perl no convierte a los espacios linefeeds ni apretar espacios adicionales. Así:

Código:

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

es probablemente lo que usted desea.

matrixmadhan · #3 (**Enlace permanente**) 10-08-2008

Cita:

Publicado originalmente por userix

¿Cómo puedo pasar awk salida a un perl variable?

Por ejemplo, quiero guardar el valor en la 4 ª columna en la variable llamada prueba. Mi mejor estimación es algo que seguir, pero estoy seguro de que esto no es correcto.

Código:

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

¿Por qué no utiliza la función en perl sí?

Para almacenar el valor en la columna 4 perl,

Código:

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

¿Es eso lo que quiere decir?

userix · #4 (**Enlace permanente**) 10-09-2008

Quiero buscar un número se encuentra en la 4 ª columna de una línea específica en un archivo y almacenar ese valor en una variable. Este archivo contiene más de 7.000 líneas de datos. La línea específica Estoy buscando contiene las letras «OXT 'Esta es la razón por la que estaba pensando en usar awk para encontrar la línea que contiene" OXT "y, a continuación grabe el número de la 4 ª columna de esta línea solamente. Se que trabajan con dividir?

otheus · #5 (**Enlace permanente**) 10-09-2008

Él es la transformación un archivo almacenado en $ _. Para ello, el awk de una sola línea se ve mejor. Sin embargo, normalmente se sustituyen por los siguientes:

Código:

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

otheus · #6 (**Enlace permanente**) 10-09-2008

Absolutamente. ¿Está buscando exactamente una línea, o más? Son separados por las columnas en blanco? Suponiendo que sí a todas las respuestas anteriores:

Código:

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

época · #7 (**Enlace permanente**) 10-09-2008

Sólo que elegir la primera aparición, sin embargo. El guión original de awk que devolver todas las coincidencias. No es difícil de evitar si usted sabe cualquier Perl, Citan sólo en caso de que usted es nuevo en esto.

Más UNIX y Linux Foro Temas usted puede encontrar útiles
Hilo	Hilo para principiantes	Foro	Respuestas	Último mensaje
¿Cómo siguiente salida en perl	email-Lalit	Programación de scripts de shell y	1	08-08-2008 01:20 PM
Establezca una variable de salida awk	Cranie	UNIX for Dummies Preguntas y Respuestas	3	10-11-2007 09:39 AM
Para guardar la salida en una variable	Sudhakar333	Programación de scripts de shell y	2	07-10-2007 08:45 AM
awk como salida a una variable	bashirpopal	UNIX for Dummies Preguntas y Respuestas	4	04-02-2003 11:02 AM
Perl scrpits ahorro en una cáscara de UNIX	Hagrid	UNIX for Dummies Preguntas y Respuestas	3	06-21-2001 12:42 PM

Herramientas de hilo	Buscar en este Hilo
Mostrar Versión para imprimir Enviar esta página	Buscar en este Hilo: Búsqueda avanzada
Modos de visualización	Vota a este hilo
Cambiar a modo lineal Modo híbrido Cambiar a modo de línea	Vota a este hilo: