Foro - Perl en Español

por **mvil1984** » 2009-07-23 17:11 @758

¿Cómo sería lo del canal? Más detalles, ¿necesito de una clave, o un enlace, cómo busco los canales? O con esos links que me pasó funciona? Otra consulta. ¿Se puede limitar el uso de memoria o CPU en Perl para que cuando se ejecute no consuma tantos recursos? Esto debido a que otros procesos tienen prioridad, entonces es para limitar el uso de los recursos que consume Perl en Windows.

Tienes que usar algún programa de Chat o IRC para conectarte. Luego, busca por los servidores, te conectas a alguno de los que te indiqué. Por ejemplo, los de irc.perl.org son gratuitos. Y cuando estás dentro de un servidor ya puedes solicitar la lista de canales o entrar directamente si sabes su nombre (los canales son los que empiezan por '#'.

Si no puedes conectarte, mándame por correo privado tu acceso de mensajería instantánea y te llamo desde el mío.

En cuanto al consumo de recursos, creo que Windows no tiene forma de restringir esos consumos, no al menos de forma tan fácil como se puede hacer en Linux. De hecho, el error es usar Windows para desarrollo de este tipo de tareas. Windows está muy bien para jugar y escribir cartas, pero para lo demás...

En cuanto al consumo de recursos, Perl consume bastante, debido al pobrísimo sistema de gestión de memoria en Windows. Por algún hilo ya he puesto un programa que tarda en ejecutarse 40 minutos en Windows XP y 40 centésimas de segundo en Linux (con el mismo hardware).

Sí que hay forma de aumentar la prioridad de los procesos: desde la ventana de Gestión de Tareas. Siendo Administrador del sistema, puedes aumentar esa prioridad.

por **mvil1984** » 2009-07-23 19:50 @868

Muchas Gracias, explorer. En realidad has sido de mucha ayuda, si bien no soy un gran experto puedes notar que estoy interesado en aprender Perl, pero no estoy en el potencial como para poder emitir una opinión de que tan bueno es Perl y cuáles son las ventajas que éste me da.

Por otro lado, Sigo sin entender que tipo de programa necesito para conectarme al Chat, pero bueno, estoy atento a tus indicaciones para proceder.

Otra cosa, explorer, he estado viendo que eres de España y vi el enlace de las posibilidades de trabajo, me gustaría que me informes de ello, porque en un futuro me gustaría ir a España a trabajar, entonces infórmame de ello porque el país en el que vives siempre me ha gustado.

Gracias de antemano.

por **explorer** » 2009-07-24 04:23 @224

Recuerda que si no sabes algo, lo puedes encontrar en Wikipedia:

* Protocolo IRC. ¿Qué es?

* Clientes de IRC

Cuando usaba Windows, hace ya muchos años, usé el mIRC. Hoy en día uso XChat en Linux, que veo que además también está disponible para Windows.

También, como opción, está el instalar el Chatzilla, una extensión para el navegador Firefox.

No dejes datos personales, como el correo, publicado en los foros, porque te lo cazarán los robots de SPAM y tu buzón acabará lleno de correo basura.

Reedita tu mensaje y borra ese dato. Si quieres enviarme información privada usa el sistema de mensajería privada que hay en estas páginas (arriba, donde dice "mensajes privados").

En cuanto a lo de venir a España, no tengo ni idea de cómo se puede hacer. Te puedo contar alguna cosa de cómo está la situación aquí y cómo se vive, pero eso ya te lo contaré en el chat.

por **mvil1984** » 2009-07-24 16:10 @715

Buenas explorer, he encontrado la manera de hacerlo. Muchas Gracias

Ahora voy por la segunda parte, encontrar el archivo no procesado en alguna ruta y que me devuelva su nombre y ruta y lo escriba en el archivo, hasta el momento llevo algo así, si me puedes orientar.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX qw/ strftime /;
use Getopt::Std;
use Time::Local;
use File::Find;
 
 
# -f: Patron de los archivos a validar.
# -d: Indica el directorio a buscar archivos.
# -n: Nombre Archivo Generar.
# -r: Ruta del archivo a buscar
 
## Asignacion de variables globales
getopts ("f:d:n:r:");
if ((!defined($opt_f)) || (!defined($opt_d)) || (!defined($opt_n)) || (!defined($opt_r))) {
  print "Programa que fechas en los archivos de ECS y determina si su fecha es correcta\n\n";
  exit;
}
 
print "--Inicio--\n\n";
 
##      Declaracion variables
$sArchivos       =$opt_f;
$sDirectorio     =$opt_d;
$sNombreBase     =$opt_n;
$sRuta           =$opt_r;
my @procesado;
my @no_procesado;
my @busqueda;
my $mtime="";
my $ruta = $opt_r;
 
 
## Calculo del Tiempo
print "La fecha de hoy es: ",scalar localtime();
 
my @ayer = localtime( time() - 86_400 );
my $time = timelocal(0,0,18,@ayer[3..5]);
 
## Imprimimos la ruta
print "\nDirectorio:$sDirectorio\n";    
 
## Nombre del archivo con fecha 
$sFecha=strftime( "%d-%m-%Y.%H.%M.%S", localtime(time) );
$ArchivoResumen=$sNombreBase."+".$sFecha.".txt";
 
#Separacion de los patrones
@Patrones=split(/\\/,$sArchivos);
 
#Recorrido de los patrones
foreach $Patron (@Patrones) 
{
        
        @Archivos=<$opt_d\\$Patron>;    
        $Cantidad=$#Archivos + 1;
print "===========================================================\n";
print "Patron:$Patron\n";       
print "Cantidad:$Cantidad\n";   
 
#Recorre el arreglo de archivos
        foreach $Archivos (@Archivos) 
        {
        $iContador=0;
        
print "cONT:$iContador\n";                      
                                        
                #Separa la ruta
                @NombreEspecifico=split(/\\/,$Archivos);
                        
                #Extrae el nombre donde se registra el resumen archivo resumen
                #aqui va la vara del archivo
                $NombreArchivo=$NombreEspecifico[$#NombreEspecifico];
                
                print "--------------------------------\n";             
                print "Archivo-Ruta:$Archivos\n";
                        
                                                
                $mtime = (stat("$Archivos"))[9];        # Obtenemos la fecha de modificacion del fichero
                print "La fecha de modificacion es:", scalar localtime($mtime);
                print "\n";
                my $texto = "$Archivos           ".scalar localtime($mtime);
                                
                if ($mtime > $time)             # Segun el $mtime lo guardamos en un sitio u otro del arreglo
                {
                        
                        push (@procesado, $texto);      # Insertamos los procesados en el arreglo
                        #print "@procesado";
                }
                else 
                {
                        
                        push (@no_procesado, $texto);   # Insertamos los no procesados en el arreglo
                        #print "@no_procesado";
                        find(\$Archivos,$ruta);
                        my $btime = (stat("$ruta/$Archivos"))[9];
                        print "El archivo $Archivos se encuentra en la ruta $File::Find::name" if ($btime > $time);
                }
                
                
        
        
#-----------------------------------------------------          
                
        }
 
        
}               
 
 
 
## Escribimos en el archivo
open(RESUMEN,">>$ArchivoResumen") or die "Imposible abrir archivo: '$ArchivoResumen': $!\n";
 
print RESUMEN "MONITOREO \n";
print RESUMEN '=' x 60,"\n";
print RESUMEN "\n\nARCHIVOS PROCESADOS\n";
print RESUMEN '=' x 40,"\n";
print RESUMEN join ("\n\n", @procesado), "\n";
print RESUMEN "\n\nARCHIVOS NO PROCESADOS\n";
print RESUMEN '=' x 40,"\n";
print RESUMEN join ("\n\n", @no_procesado), "\n";
print RESUMEN "\n\nBUSQUEDA DE ARCHIVOS NO PROCESADOS\n";
 
close(RESUMEN);
 
print "--Salida--\n";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Luego el archivo el bat que lo llama es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

net use q: "\\195.195.195.195/prueba"
prueba.pl -f"*.PGC" -d"C:/directoriodeprueba" -n"MI" -r"q:/test"
net use q: /delete
pause

¿Puedes ayudarme u orientarme sobre cómo hacerlo? Creo que es fácil con este comando de find(), no sera nada difícil.

Gracias

por **explorer** » 2009-07-24 16:43 @738

¿Realmente estás usando el módulo File::Find? Yo creo que no... Lo que veo es que estás usando el operador '< ... >'. La línea 93 me sobra. Y el print() de la 95, en vez de $File::Find::name, es lo mismo que "$ruta/$Archivos" (lo que pone en la 94).

File::Find sirve para buscar uno o más ficheros que cumplan una serie de condiciones. Pero es que eso es lo que estás haciendo a lo largo del código. No estás usando bien el módulo.

Con el operador '< ... >' te vale para sacar el directorio, si los ficheros están en ese directorio (no repartidos entre subdirectorios).

Decir

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Cantidad=$#Archivos+1;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

es lo mismo que

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Cantidad=@Archivos;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No necesitas volver a hacer un stat() del fichero en la línea 94 porque ya lo hiciste en la línea 77. El valor de $btime lo tienes en $mtime. El print() de la línea 95 nunca se cumple ($mtime es menor que $time).

¿Para qué sirve la variable $iContador? Creo que no se usa para nada.

En resumen... que está un poco enmarañado...

Y aún me tiene mosca el que no haya funcionado lo de opendir(). A mí, en mi máquina, me funciona.

Y te pido por favor que etiquetes las secciones de código de tus mensajes.

por **mvil1984** » 2009-07-24 16:58 @749

Mi intención es que busque ese mismo archivo pero en otra ruta de otros servidores, debido a que debe ser encontrado, una vez ubicado, debe tomar de nuevo la fecha de modificación debido a que el archivo que debe buscar sí debe cumplir esa condición de fecha de modificación mayor a la fecha actual. Porque la idea es que si no está donde estoy buscando, necesito que busque en otras rutas y sus subdirectorios el archivo; una vez ubicado sacar su fecha de modificación y comparar de nuevo para saber si cumple la condición imprimir el archivo en el archivo de texto diciendo que lo encontró en una ruta X, y luego de eso si no lo encontró de modo que cumpliera esa condición que busque en el otro servidor y haga lo mismo y si no lo encuentra que diga que no se encontró y finalice ahí, eso sería.

Disculpas por lo del código, no sabía cómo documentarlo porque no había visto las opciones que tenía cuando escribía.

Gracias.

por **explorer** » 2009-07-24 17:10 @757

Entonces, entendido. Sí que necesitas usar el find() para buscar el fichero en otros sitios...

Pero...

Resulta que estás usando el módulo File::Find de una forma que no está documentada. ¿En qué parte de la documentación de File::Find::find() se dice que el primer parámetro de la función puede ser una referencia a una variable escalar que contiene un valor?

Que funcione el módulo, es otra cosa que, además, voy a investigar ahora. Pero que funcione en el futuro, en las siguientes versiones de File::Find, lo veo difícil.

Actualización: como me temía, a mí me falla tu programa: me dice que "\$Archivos" como primer parámetro de File::Find::find() no es válido porque no es una referencia a un código ejecutable.

por **mvil1984** » 2009-07-24 17:22 @765

¿Cómo puedo solucionar el problema?

por **explorer** » 2009-07-24 17:40 @777

A ver... hay varias opciones...

* Si realmente no sabes dónde están los ficheros en los servidores remotos -es decir, que pueden estar en cualquier subdirectorio- entonces sí que debes usar File::Find

* Si sí sabes el directorio donde están, entonces te vale con una línea como la 94: haces un stat() dando la ruta del archivo, y listo

Si necesitas usar el find(), hay que entender cómo funciona: el primer argumento de la función debe ser, o un diccionario con todas las opciones de cómo se ha de realizar la búsqueda, o una referencia a un código ejecutable (una subrutina).

Se podría hacer algo de esto (código entre la 89 y la 96) (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

{
    push @no_procesado, $texto;   # Insertamos los no procesados en el arreglo
    find(\&busca,$ruta);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y luego agregar, al final del programa esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub busca {
    return if $_ ne $Archivos;
    my $btime = (stat($File::Find::name))[9];
    print "El archivo $Archivos se encuentra en la ruta $File::Find::name" if ($btime > $time);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Para que esto funciona, las variables $Archivos y $time deben ser globales o locales en el contexto mayor, que me parece recordar que sí que están.

¿Ves lo que se hace? A find() le pasamos una referencia a una subrutina que se ejecutará por cada fichero que find() encuentre en la $ruta. Dentro de ella, salimos inmediatamente si el fichero encontrado no es el que queremos. Si lo es, sacamos su stat() y lo imprimimos si cumple la condición de que su tiempo de modificación es superior a nuestra marca de tiempo.

Foro - Perl en Español

Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Publicidad

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

Re: Búsqueda de fechas y comparación de archivos

¿Quién está conectado?