Foro - Perl en Español

por **fgalves** » 2007-04-16 09:27 @435

Hola a todos,

El caso es que necesito abrir un fichero y extraer únicamente las líneas que contengan un determinado string ($string). Dichas líneas (lineas útiles) son a continuación procesadas por una función determinada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open($fileIO,$file);

extraer_lineas_utiles($fileIO,$string);

procesar_lineas_utiles;Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Necesitaría por lo tanto aplicar algo así como un "grep" sobre dicho fichero y almacenar las líneas que contengan dicho string (líneas útiles) en otro fichero u en una estructura de datos determinada.
He buscado información sobre la instrucción en perl "grep" y por lo visto funciona únicamente con un array en entrada pero no con un fichero...

¿Alguien me puede echar una mano explicándome cuál sería la manera más simple de implementar dicho "grep"? ¿Dónde (y cómo) guardo las líneas que son extraídas?

¡Muchas gracias por adelantado!
Felipe

Que tal,

Mira, en efecto grep funciona sobre listas, pero un archivo (al menos cómo el que quieres procesar) es una lista de líneas delimitadas por uno o mas saltos de línea (\n).

Así que implementar algo como un grep para archivos es muy trivial y puedes hacerlo incluso al estilo de grep, aquí te dejo una versión funcional:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub file_grep (&$){
my($callback,$file)=@_;
openmy$fh,$fileordie$!;
my@ret;
while(<$fh>){
# A cada línea leída la pasamos por el filtro
# proporcionado como un coderef, si la función
# retorna verdadero, entonces la metemos en una lista
# que al final tendrá las lineas que nos interesan.
push(@ret,$_)if$callback->();
}
return@ret;
}

# código de ejemplo:
my$file='foo.data';# tu archivo
my@wanted_lines= file_grep {$_=~/PATTERN/g},$file;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El código no lo he probado, pero bueno espero se entienda el concepto. Cualquier duda adelante.

La idea es que file_grep procesará el archivo que le dices, y ejecutará la subrutina delimitada por {} por cada linea encontrada, y buscará el patrón indicado, almacenando en una lista las líneas que cumplen con dicho patrón.

Saludos,

por **fgalves** » 2007-04-17 02:16 @136

¡Hola a todos y gracias por las propuestas!
Supongamos que finalmente uso la versión en la que se usa el grep del sistema al abrir el fichero, pues de momento me parece una solución sencilla y rápida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open($fileIO,"grep $string $file |");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En mi caso, necesito hacer un grep sobre uno o más strings: $string1, $string2, ..., $stringn. Es decir, con que uno de esos strings aparezca en la línea es suficiente para que sea considerada útil (por lo tanto el grep debe ser realizado sobre el OR de dichos strings (y no un AND)).

¿Cómo puedo hacer para hacer un grep sobre el OR de dichos strings?
¿Funcionaria lo siguiente?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open($fileIO,"grep $string1|$string2|$string3 $file |");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Muchas gracias por adelantado!
Felipe

por **explorer** » 2007-04-17 03:09 @173

No creo que sea la solución más sencilla. Puede que sea rápida, pero eso depende de cuántos y cómo sean los strings. Estamos hablando de ejecutar un binario externo, además de el propio intérprete de Perl.

No te vale el grep para agregar nomenclaturas de expresión regular. Tienes que usar el egrep (o usar grep -e).

Para 'unir' los strings con '|' en Perl se usa 'join'. Lo haces antes de hacer el 'open' y se lo pasas todo en una variable escalar.

Perl user · por **Perl user** » 2007-04-17 11:42 @529

fgalves escribiste:¡Hola a todos y gracias por las propuestas!
Supongamos que finalmente uso la versión en la que se usa el grep del sistema al abrir el fichero, pues de momento me parece una solución sencilla y rápida:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
open($fileIO,"grep $string $file |");
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

En mi caso, necesito hacer un grep sobre uno o más strings: $string1, $string2, ..., $stringn. Es decir, con que uno de esos strings aparezca en la línea es suficiente para que sea considerada útil (por lo tanto el grep debe ser realizado sobre el OR de dichos strings (y no un AND)).

¿Cómo puedo hacer para hacer un grep sobre el OR de dichos strings?
¿Funcionaria lo siguiente?
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
open($fileIO,"grep $string1|$string2|$string3 $file |");
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¡Muchas gracias por adelantado!
Felipe

Se ve horriblemente pésima una solución así, sin tocar puntos como portabilidad y eficiencia ya que generarás procesos a lo bruto.

No entiendo por qué la gente insiste en soluciones así cuando Perl provee herramientas mas poderosas y de la misma magnitud para resolver un problema así.

En fin... gajes del oficio.

Saludos,

Foro - Perl en Español

Como aplicar un "grep" sobre un fichero

Como aplicar un "grep" sobre un fichero

Publicidad

Re: Como aplicar un "grep" sobre un fichero

¿Quién está conectado?