Foro - Perl en Español

por **davids84** » 2011-02-11 09:45 @448

Hola, buen día...

Tengo una duda acerca de cómo utilizar el comando grep en un código de Perl... Tengo aquí un pequeño ejemplo de cómo lo utilicé... pero me marca un error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (my $fh, $ARGV[0]) or die "No se puede abrir el archivo\n";
 
        my $result=`grep "^>" $fh`;
        print $result;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo que estoy intentando aquí es que me imprima la línea en donde encuentra el mayor que (">").

La versión que tengo de Perl es una versión viejita: es la 5.8.8.

¿¿¿Alguna sugerencia de cómo utilizar el comando???

¡¡Saludos!!

No debes confundir la funcionalidad de un comando externo con la de un comando interno de un lenguaje informático.

Solo tienen en común el nombre y la idea de que hacen un filtrado, pero la forma de operar con ellos es muy diferente.

Si quieres contar las veces que se ha encontrado lo que buscas, te vale con mirar el número de resultados:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Número de líneas encontradas: ", scalar @result;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **davids84** » 2011-02-11 10:28 @478

¡aaahhh!, Ok, ok, perfecto, si es que yo me estaba yendo con el comando que utilizamos externo... pero como lo habías comentado en líneas anteriores, Perl tiene su propia función de "grep". Pues me está siendo de mucha utilidad... De nuevo, gracias... Es un lujo estar en este foro de Perl.

¡¡¡Saludos!!!

por **davids84** » 2011-02-11 11:27 @518

Otra pregunta: ¿puedes revisar mi código...? Estoy haciendo lo mismo con la función grep, pero estoy viendo dos archivos a la vez. Voy a buscar en el archivo 1 la variable que quiero contar cuántas veces aparece en el archivo 2... Lo estoy haciendo de esta manera pero me marca un error. ¿Me puedes ayudar a ver en dónde está el error...? Tal vez sea un error muy grande porque es la primera vez que trabajo con dos archivos...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $var;
open (my $fh, $ARGV[0]) or die "No se puede abrir el archivo\n";
        if ($_ =~ /^isogroup[0-9]{5}\W(.*)\n/){ #aqui localizo mi busqueda
        $var = $1; #la almaceno en una variable
        }
 
my $archivo = '454Readstatus.txt';
open (FH2, $archivo) or die "No se puede abrir el archivo\n";
        my @result=grep { /$var/ } <FH2>; #hago la busqueda de mi variable
        print scalar @result . "\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que estoy haciendo es, primero, localizar en el primer archivo mi búsqueda, la almaceno en una variable, y después esa variable la busco en el archivo 2.

¡¡¡¡Saludos!!!!

por **explorer** » 2011-02-11 11:38 @526

Falta la operación de lectura hacia $var, en la primera parte.

por **davids84** » 2011-02-11 11:40 @528

¡Perdón!, no entendí

¿Falta la operación de lectura?

¿Me puedes poner un ejemplo?

En lo que respecta al código, ¿¿¿¿está bien la lectura de los dos archivos????

por **explorer** » 2011-02-11 12:18 @554

Eso estoy diciendo: que estás leyendo el segundo fichero, pero no el primero.

por **davids84** » 2011-02-11 12:31 @563

¡¡¡¡¡¡Sí, ya corrió el programa, muchas gracias!!!!!!

Solo que ahorita lo estoy guardando en un archivo y se tarda mucho...

Sabes... si quiero meterle 2 condicionantes al grep(), ¿se puede?

Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$result=grep{/$var,GPJFHIG01/}<$fh>Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Solo quiero que me imprima mi variable $var cuando me encuentre "GPJFHIG01" ¿¿Así está bien la forma de ponerlo??

¡¡Saludos!!

Foro - Perl en Español

Cómo utilizar el comando "grep" en Perl

Cómo utilizar el comando "grep" en Perl

Publicidad

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

Re: Cómo utilizar el comando "grep" en Perl

¿Quién está conectado?