Foro - Perl en Español

[tlmejia]

¡¡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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

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

use cgi;
require "divs.pl";
use CGI::Carp "fatalsToBrowser";
use File::Grep qw( 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.002 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!!

[explorer]

Prueba con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

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

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use File::Grep qw( 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)

[explorer]

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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe
use CGI;
use CGI::Carp  qw(fatalsToBrowser);
use File::Grep qw(fgrep);

require "divs.pl";

print "Content-type: text/plain\n\n";
my @matches = fgrep { /GOBIERNO/ } glob('C:\AppServ\www\pdf\*.txt');
for my $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.

[tlmejia]

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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my @matches = fgrep { /$query/ } glob('C:\AppServ\www\pdf\*.txt');
for my $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!!

[explorer]

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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my @matches = fgrep { /$query/ } glob('C:\AppServ\www\pdf\*.txt');
for my $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

[tlmejia]

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.

[explorer]

Pues con una expresión regular...

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

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.

[tlmejia]

Estoy poniendo esto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my @matches = fgrep { /$query/ } glob('C:\AppServ\www\pdf\*.txt');
    for my $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

[explorer]

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my @matches = fgrep { /$query/ } glob('C:\AppServ\www\pdf\*.txt');
    for my $f (@matches) {                    
      if ($f->{count}) {                  
        my  $busfinal =  $f->{filename};  
        if ($busfinal =~ /([^\\]+)\.txt/) {
            $busfinal =  "$1.pdf";
            print qq(<a href="/cgi-bin/pdf/$busfinal">$busfinal</a><br/>\n);
        }
    }
}

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

[tlmejia]

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

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 ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

print qq(<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