Foro - Perl en Español

Hola,

necesito eliminar carpetas que tengan una antigüedad de más de 12 horas.

El siguiente código está incompleto porque necesito la fecha de creación de cada carpeta y no lo consigo. ¿Me pueden echar un cable?

De momento el código queda de esta manera:
#!/usr/bin/perl -w

use v5.10.0;
use File::Copy;
use POSIX 'strftime';
use File::Temp;
use File::stat;



my $dir = '/home/sim/data/';
opendir(DIR,"$dir");
@files = readdir(DIR);
foreach $file (@files){
print $file, "\n";
if (-C $file ...

Hola, buenas tardes.

Tengo un ordenador que funciona con Windows 7 y he instalado Strawberry Perl para poder ejecutar el siguiente script de prueba.

En la línea de comandos de Perl me he situado en la carpeta dónde se sitúa mi programa para poder ejecutarlo, pero el script no consigue abrir el archivo.

Con la imagen adjunta podéis ver el comando que he utilizado, el programa de prueba y la localización del programa.

Es posible ...

Hola de nuevo, hacía tiempo que no consultaba por el foro.

El siguiente código conecta con un servidor externo, entra en un directorio, elimina ficheros gif y luego envía a esta carpeta vacía nuevos ficheros gif desde el ordenador.

Me encuentro que conecta con el servidor externo, elimina los gif y envía correctamente los gif en el primer directorio seleccionado. Posteriormente repito la misma operación pero en otro directorio.

El problema es el siguiente: No ...

Agradecería si me pudiesen explicar cómo defino variables globales en un paquete, para que luego las pueda utilizar en otro.

Necesitaría:

1- Definir variables globales en un paquete X.
2- Asignarle valores dentro del paquete X.
3- Acceder desde otro paquete XX al valor de dichas variables.

¡Gracias!

Saludos, buenas noches. Tengo un problema. Si alguien me puede ayudar, por favor.

Paso a comentar el problema que quiero resolver. Saludos...

Tengo una lista en texto llamada host.txt:
---- host.txt--
admin
cpanel
m
modulo
host
------------------

Desde la consola de Windows realizo un ping:

ping http://www.eldeber.com.bo

y la respuesta es

Haciendo ping a http://www.eldeber.com.bo con 32 bytes de datos:
Tiempo de ...

AllPerlBooks.com

Listado de todos los libros publicados dedicados a Perl.

Hola, estoy llamando una subrutina de JavaScript desde Perl y me manda el mensaje:

"Uncaught ReferenceError: funcion_javascript is not defined"

¿Conocerán el significado del mensaje?

Mil gracias.

Hola a todos en el foro, tengo un script (que funciona) con opciones que paso por la línea de comando --xetex, --latex, --luatex y el archivo que paso como entrada guardado en $archivo, deseo agregar texto al principio dependiendo de la opción de entrada y luego guardar en un nuevo archivo. El código es el siguiente:
else {
if ($xetex) {
my $preview = <<"EXTRA";
\\AtBeginDocument\{
\\RequirePackage\\{preview\}
\\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%
\\newenvironment\{postscript\}\{\}\{\}
\\PreviewEnvironment\{postscript\}\}
EXTRA ...

Un saludo.

Me he encontrado con el siguiente problema, comparando un programa para IRC (bot) escrito en C tiene mayor eficiencia que el mismo que yo hago pero en Perl (bot).

Si escribo help en el privado del botijo (sería un comando) en repetidas ocasiones éste se cuelga y da las respuestas con dos segundos de atraso, pero si lo hago al programa de IRC (bot) escrito en C, va perfectamente, inmediato.

Un trozo de ...

Hola. Me está sucediendo un problema con algo tan simple: necesito mostrar las opciones de un <select> cuando este se seleccione:

print "<SELECT name='componente' onfocus='carga_comp(subestacion.value,tipo_evento.value);'/>";

A manera de prueba generé la función JavaScript de la siguiente manera:

function carga_comp(subest,tipo_evento) {
alert ("AQUI VOY");
return;

Pero no muestra el alert. ¿Qué estoy omitiendo?

Gracias.