Foro - Perl en Español

por **tlmejia** » 2008-08-28 09:08 @422

¡¡Hola!! No sé si alguien pudiera echarme la mano con este módulo del file grep. Lo que hice fue poner de manera local unos archivos txt, dentro de una carpeta, entonces escribí el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe -X

use cgi;
require"divs.pl";
use CGI::Carp"fatalsToBrowser";
use File::Grepqw( fgrep fmap fdo );

print"Content-type: text/html","\n\n";
my@matches= fgrep {/GOBIERNO/}glob"C:\AppServ\www\pdf\*txt";
print SUMMARY $_foreach@matches;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

donde le estoy diciendo que quiero buscar la palabra GOBIERNO y le indico la ruta, pero, al momento de ejecutarlo no me muestra nada, no me muestra errores pero no me muestra nada, aparece en blanco la pantalla.

No sé si alguien pudiera echarme la mano, ¡¡soy nueva en esto!! ¡¡Gracias!!

#!C:\perl\bin\perl.exe

use CGI;
use CGI::Carpqw(fatalsToBrowser);
use File::Grepqw( fgrep fmap fdo );

require"divs.pl";

print"Content-type: text/plain","\n\n";
my@matches= fgrep {/GOBIERNO/}glob'C:\AppServ\www\pdf\*.txt';
print SUMMARY $_foreach@matches;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He hecho 7 cambios:
* Quitar el -X (desactivaba los avisos)
* Módulo CGI en mayúsculas (casi seguro que te refieres al estándar)
* Cambiado "fatalsToBrowser" a qw(fatalsToBrowser) (cambio opcional)
* El require puesto al final de la carga de módulos (cambio opcional)
* Cambiado "text/html" por "text/plain" (facilita la lectura: solo estás enviado texto)
* Cambiadas las comillas dobles por simples (los '\' dentro de las comillas dobles... tienen otra misión)
* Cambiado "*txt" por "*.txt" (los comodines funcionan de forma diferente entre Unix y DOS)

por **explorer** » 2008-08-28 17:58 @790

Parece ser que la documentación del módulo File::Grep no está lo que digamos bien.

Para recuperar los nombres de los ficheros he tenido que hacer algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use File::Grep'fgrep';

my@ficheros= fgrep {/^use XML/}glob('*.pl');

#use Data::Dumper;
#print Dumper \@ficheros;

for(@ficheros){
print$_->{filename},"\n"if$_->{count};
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El programa final queda:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe
use CGI;
use CGI::Carpqw(fatalsToBrowser);
use File::Grepqw(fgrep);

require"divs.pl";

print"Content-type: text/plain\n\n";
my@matches= fgrep {/GOBIERNO/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){
print$f->{filename},"<br />\n"
if$f->{count};
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es decir, hay que ver si por cada fichero se han encontrado coincidencias ($f->{count} > 0). Y en ese caso pintamos el nombre del fichero.

por **tlmejia** » 2008-08-29 13:12 @592

Muchas gracias, con eso ya funcionó. Ahora lo que estoy haciendo es querer aplicar el comando sed para que sustituya el .txt y pasarlo al .pdf, lo estoy mandando así, pero me está mandando un problema de sintaxis, ¿algunas sugerencia? :?:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){
my$busfinal= perl -pe "s/.txt/.pdf/g"$f;
print$busfinal->{filename},"<br />\n"
if$busfinal->{count};
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡¡Gracias de antemano por la ayuda!!

por **explorer** » 2008-08-29 13:49 @617

No necesitas ejecutar perl dentro de perl, en el 99,99% de las ocasiones. Ni siquiera el comando sed (de hecho, no lo estás haciendo aunque lo hayas dicho).

Aparte, te has liado tu misma con lo que realmente quieres hacer...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){# Para todas las búsquedas
if($f->{count}){#   Si hubo coincidencias
my$busfinal=$f->{filename};#     Obtenemos el nombre del fichero que coincidió
$busfinal=~s/\.txt/.pdf/;#     Cambiamos su extensión
print"$busfinal<br />\n";#     Y pintamos el resultado
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **tlmejia** » 2008-08-29 15:01 @667

Gracias nuevamente, sí ya quedó con eso, es que en efecto, el problema era ese, como le comentaba esto es nuevo para mi, entonces apenas me familiarizo con la sintaxis, pero bueno con esto de prueba y error es como uno aprende. Por último, tengo un error y no sé con qué comando puedo borrar como cierta información que viene dentro de una cadena y sólo quedarme con el nombre, es decir:

C:\AppServ\www\pdf\SA25.0704Busan40.pdf

Lo que tiene que aparecer es a partir de SA.....pdf, pero el valor de mi variable trae toda esa ruta, desde C:\AppServ\...., ¿cómo quitarle eso? :?:

de manera que sólo muestre SA25.0704Busan40.pdf.

por **explorer** » 2008-08-29 15:16 @678

Pues con una expresión regular...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$busfinal=~/([^\\]+\.pdf)/;
$busfinal=$1;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Capturamos un conjunto de caracteres que no sean '\' ([^\\]+) y que están delante de '.pdf'. La captura, queda en $1.

por **tlmejia** » 2008-08-29 16:30 @729

Estoy poniendo esto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){
if($f->{count}){
my$busfinal=$f->{filename};
$busfinal=~/([^\\]+\.pdf)/;
$busfinal=~s/\.txt/.pdf/;
print"<a href='$busfinal'>$busfinal</a><br/>\n";
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero no me hace nada me sigue mostrando el mismo resultado:

Otra búsqueda

Para la búsqueda Potasio N-metilditiocarbamato, estos resultados se encontraron:

C:\AppServ\www\pdf\SA25.0704Busan40.pdf

por **explorer** » 2008-08-29 16:47 @741

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){
if($f->{count}){
my$busfinal=$f->{filename};
if($busfinal=~/([^\\]+)\.txt/){
$busfinal="$1.pdf";
printqq(<a href="/cgi-bin/pdf/$busfinal">$busfinal</a><br/>\n);
}
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **tlmejia** » 2008-08-29 17:06 @754

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$busfinal=~/([^\\]+\.pdf)/;
$busfinal=$1;
$busfinal=~s/\.txt/.pdf/;
print"<a href=$busfinal>$busfinal</a><br/>\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si lo pongo así, ahora ya no me arroja, ningún resultado, si lo pongo lo mismo pero al final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printqq(<a href="$busfinal">$busfinal</a><br/>\n);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

me sale lo mismo, no me manda ningún error, pero no me manda los resultados que me mandaba antes

Foro - Perl en Español

Problemas con File::Grep

Problemas con File::Grep

Publicidad

¿Quién está conectado?