Foro - Perl en Español

Hola a todos

Tengo el siguiente código
use Net::FTP;
$ftp=Net::FTP->new("192.168.0.102",timeout=>240) or newerr=1;
$ftp->login("usuario","password");
$ftp->pasv();
$ftp->put(archivo);
$ftp->quit;

El script no puede poner el archivo en el servidor. Lo he notado porque he puesto mensajes para ver el avance del programa; llega a la instrucción put y ahí se queda trabado, ya no avanza en la ejecución.

Si me pueden ayudar se lo agradecería mucho.

He instalado un servidor Apache recientemente. He realizado una página en HTML, pero al añadirle una llamada a un cgi en Perl me da error.

He creado un cgi sencillo "Hola mundo" para ver si hacía algo mal, pero me sigue dando el mismo error.

La salida es esta;
Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, [email protected] and inform ...

Hola a todos, soy nuevo en el foro. Me encargaron la conversión de un script escrito en Perl a PHP y, aunque alguna vez hice algo en Perl, estoy teniendo problemas para entender esta parte del código:

sub getCookie {
my %cookies = fetch CGI::Cookie;
my @arryCookies=(((exists $cookies{'test'}) && ($cookies{'test'}->value)) ? $cookies{'test'}->value : (''));
return $arryCookies;
}

my $cookie_id = &getCookie;
my ($val) = $cookie_id =~ /\d+\.\d+\.\d+\.\d+\.(.*)/;

Un ejemplo de valor de esa cookie es: ...

Hola,
necesito ayuda sobre cómo comparar 2 ficheros. Ambos ficheros tienen un campo clave en común y necesito crear un fichero de salida con la diferencias entre ambos solo si no coincide este campo clave.

Si alguien me puede marcar unas líneas muy generales creo que yo podré acabar solo el programa.

No sé si aquí, en Experto, es el lugar adecuado.

Creo que no me sirve:

use File::Compare; if (compare("file1","file2") == 0) ...

Muchas ...

¿Alguien sabe la diferencia que existe entre las variables locales y privadas en Perl?

Gracias por adelantado

Estaba leyendo el foro, pero no encontré ningún post el cual me pueda ayudar, por eso generé este.

Tengo un script el cual me gustaría meterle una variable la cual me devuelva el tiempo de ejecución que estuvo el script.

Gracias

Hola. Mira tengo una idea en la cabeza pero no sé cómo programarla.

Estoy creando un script que realiza un socket. Pues yo quiero crear una función de que cuando el socket se acabe realice una función definida por mi.

Un ejemplo sería una conexión (socket) con una página web, pues cuando el socket se cerrase ya sea por el usuario o por un problema del mismo que realice una función definida por mi.

Está: ...

Buenas, estoy empezando con Perl y tengo una pregunta de muy muy muy novatos.

Tengo en cada línea de un fichero una hora con este formato |HH:MM| o |H:MM|. Lo que quiero conseguir es imprimir aquellas fechas que NO sean correctas (como por ejemplo: |24:00| o |9:65|).

He conseguido justo lo contrario con este código:

while (<IN>){
print "\n" if /?\d:\d/;
}

He probado a meter la exp. reg. entre corchetes y anteponerle el "^", ...

Hola, estoy realizando una aplicación web en PHP para la gestión de un centro escolar que en un principio iba a ser para una Intranet, pero que se ha decidido sacar a Internet.

Como iba a ser para una Intranet la verdad es que creo que la seguridad de la aplicación es un poco baja. Pido por favor me aconsejéis si está bien este nivel de seguridad o es poco y posibles alternativas. Os cuento, ...

¡¡Hola!! Mi intención es pasar un fichero de texto (.txt) a array bidimensional para poder modificar cada uno de los caracteres que componen el fichero original, en lenguaje Perl.

¿Alguien me puede ayudar? :roll:

¡¡¡Muchas gracias!!! :P