Foro - Perl en Español

¿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.

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.

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.

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.




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




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

Gracias

¿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

es lo mismo que


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.

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.

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.

¿Cómo puedo solucionar el problema?

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):

y luego agregar, al final del programa esto:

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.