Foro - Perl en Español

por **animal collective** » 2012-09-26 14:11 @632

Estimados,

Junto con saludarlos les comento el problema que presento:

Realicé un pequeño script en Windows que busca en una ruta si fueron creados unos archivos con cierto nombre; para esto utilizo el comando findstr.

El problema es que al ejecutar el comando en el script me arroja un error:

Sintáxis: [ Descargar ] [ Ocultar ]

C:\>script_log.pl
Unrecognized escape \I passed through at C:\script_log.pl line 5.
Unrecognized escape \A passed through at C:\script_log.pl line 5.
Unrecognized escape \p passed through at C:\script_log.pl line 5.
File Not Found

Adjunto script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl.exe -w
 
use strict;
my $valor;
$valor=`dir /b D:\ILO\Log\AppServer\pro\Lodi | findstr /b java | findstr /e txt`;
print $valor . "\n";
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Si ejecuto la consulta

Sintáxis: [ Descargar ] [ Ocultar ]

dir /b D:\ILO\Log\AppServer\pro\Lodi | findstr /b java | findstr /e txt

directamente en la consola entrega la siguiente información:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

java.20120327.154419.21892.0004.tx

java.20120327.154421.21892.0005.tx

java.20120327.154421.21892.0006.tx

java.20120327.154447.21892.0010.tx

java.20120328.094250.6728.0004.txt

java.20120328.094253.6728.0005.txt

java.20120328.094301.6728.0006.txt

java.20120328.094325.6728.0010.txt

java.20120404.102803.15396.0001.tx

java.20120404.102803.15396.0006.tx

java.20120404.102803.15396.0009.tx

java.20120404.102803.15396.0010.tx

java.20120404.122406.23176.0003.tx

java.20120404.122432.23176.0004.tx

java.20120404.122509.23176.0009.tx

java.20120404.122509.23176.0010.tx

java.20120524.162631.5724.0002.txt

java.20120615.130726.5700.0002.txt

java.20120619.212536.5700.0002.txtColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El objetivo del script es detectar si se encontró el archivo y cuántas veces estaba en la ruta.

Desde ya agradezco su apoyo.

Saludos

El comando findstr no busca por archivos con un cierto nombre, sino que busca si un texto está contenido dentro de un archivo o del texto que se le pase por la entrada estándar.

Cuando ejecutas el comando:

dir /b D:\ILO\Log\AppServer\pro\Lodi | findstr /b java | findstr /e txt

Estás generando un contenido (dir /b D:\ILO\Log\AppServer\pro\Lodi) y eso se lo pasas a dos comandos findstr, que filtrarán las líneas en donde aparezca el texto 'java' y luego de los que queden, los que tengan el texto 'txt'.

El error que te sale es que, en Perl, el carácter '\' dentro de una cadena de textos, suele indicar algo especial con respecto al carácter que le sigue.

Mejor ponlo de esta manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$valor = `dir /b D:/ILO/Log/AppServer/pro/Lodi | findstr /b java | findstr /e txt`;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras, lo puedes hacer todo desde Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl/bin/perl.exe
 
my $dir = 'D:/ILO/Log/AppServer/pro/Lodi';
 
my @archivos = glob("$dir/*.txt");      # buscamos todos los archivos .txt del directorio
@archivos = grep { /java/ } @archivos;  # y de esos, nos quedamos con los que tengan la palabra 'java'
for (@archivos) {                       # para todos los que quedan
    print "$_\n";                       # los sacamos en pantalla
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **animal collective** » 2012-10-03 10:08 @464

Estimado,

Funciona la búsqueda pero en la salida del script arroja lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120327.154419.21892.0004.tx
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120327.154421.21892.0005.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120327.154421.21892.0006.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120327.154447.21892.0010.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120328.094250.6728.0004.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120328.094253.6728.0005.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120328.094301.6728.0006.txt
03-10-2012 11:56:03 D:/ILO/Log/AppServer/pro/Lodi/java.20120328.094325.6728.0010.txt
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Realicé una modificación al script para que solo me deje la línea correspondiente a java.20120327.154421.21892.0005.txt

Agregué la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 my $valor = $test =~ /Lodi (\d+)/;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero esto último no funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl/bin/perl.exe
 
use POSIX 'strftime';
 
use strict;
use warnings;
 
my $fecha = strftime "%d-%m-%Y %H:%M:%S", localtime;
 
my $dir = 'D:/ILO/Log/AppServer/pro/Lodi';
     
my @archivos = glob("$dir/*.txt");      # buscamos todos los archivos .txt del directorio
   @archivos = grep { /java/ } @archivos;  # y de esos, nos quedamos con los que tengan la palabra 'java'
 
    for my $test(@archivos) {                       # para todos los que quedan
       
          my $valor = $test =~ /Lodi (\d+)/;
       print $fecha, $valor. "\n";
  
                               
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-10-03 10:32 @481

Me parece que no sé lo que quieres hacer...

¿Quieres quedarte solo con el nombre del archivo que coincida con la fecha de ahora?

Eso puede llegar a ser complicado si no sabes en qué último segundo se modificó el archivo.

La expresión regular tampoco es clara. Estás capturando un grupo de dígitos que siguen a "Lodi ", pero en ninguna parte de los nombres de los archivos existe "Lodi " ('Lodi' con un espacio en blanco).

Por favor, dinos exactamente qué quieres hacer.

En el primer mensaje dices que quieres saber cuántas veces aparece un determinado archivo, pero no sabemos de qué archivo estás hablando.

Si es de un archivo del que sabes perfectamente su nombre, te vale con usar el operador 'eq' en un if() para saber si está o no en la lista.

por **animal collective** » 2012-10-03 10:55 @497

Quiero saber cuántas veces aparece el archivo 'java*.txt'

Necesito que la salida por pantalla sea:

Fecha actual java*.txt

No necesito que coincidan los archivos con la fecha.

Actualmente me muestra

fecha ruta de los archivos y el nombre de los archivos

por **explorer** » 2012-10-03 13:41 @612

¡Ah, bueno! Si solo quieres saber cuántos archivos son, solo hay que contarlos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:/Perl/bin/perl.exe
use strict;
use warnings;
use POSIX 'strftime';
 
my $fecha = strftime "%d-%m-%Y %H:%M:%S", localtime;
 
my $dir = 'D:/ILO/Log/AppServer/pro/Lodi';
 
my @archivos = glob("$dir/*.txt");       # buscamos todos los archivos .txt del directorio
   @archivos = grep {/java/} @archivos;  # y de esos, nos quedamos con los que tengan la palabra 'java'
 
print "$fecha: ", scalar(@archivos), "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Buscar un archivo en una ruta específica

Buscar un archivo en una ruta específica

Publicidad

Re: Buscar un archivo en una ruta específica

Re: Buscar un archivo en una ruta específica

Re: Buscar un archivo en una ruta específica

Re: Buscar un archivo en una ruta específica

Re: Buscar un archivo en una ruta específica

¿Quién está conectado?