Foro - Perl en Español

¡Hola!
Tengo un problemilla en la validación de un formulario html y no sé cómo solucionarlo. Normalmente las validaciones se realizan con JavaScript en el cliente, pero yo necesito verificar que un campo del formulario no esté en mi base de datos, por lo que tengo que usar CGI. Buscando información, he visto que CGI::Ajax me puede ayudar, pero me he quedado en un punto que no sé cómo seguir.

El problema está en que ...

Me he propuesto a crear una nueva página de Perl, no como para competir contra esta.

Si no para que hallan más recursos y además como para involucrarme más. Lo más chistoso es que estoy viviendo en la ciudad Perl :D "luego mostraré fotos y me creerán".

1. Busco Personas interesadas en el proyecto.
2. Con conocimientos básicos e intermedios.

La idea es crear una página ...

¿Cómo puedo argumentar en la empresa donde trabajo que es mejor usar Perl para subir archivos que usar php...?

Quiero argumentar porque veo deficiente usar script PHP para subir archivos tan pesados hasta de 15 megas.

El portal permite a los usuarios subir vídeos y mp3, teniendo en cuenta que pueden ser decenas de personas subiendo archivos al mismo tiempo.

¿Cómo puedo hacerlo en Perl y en PHP directorios que no estén vacíos?

Hola,

Tengo un problema al leer acentos de un archivo con Perl. Abro el archivo leo cada línea y separo las palabras por espacios, pero los acentos aparecen como espacios en blanco y televisión se convierte en "televi" y "n". ¿que debo tocar para que lea los acentos bien?

open(FPIN, "<$mystoplist");

while (<FPIN>) {

@tokens = split(/\s+/, $_);

}

Hola a todos, primero de todo felicitaros por la gran tarea que lleváis a cabo... Creo que sois una gran herramienta para todos los que, como yo, nos iniciamos en el mundo de la programacion en Perl.

Creo que mi duda será fácil de contestar... la cuestión es que tengo que crear un hash el cual he creado de la siguiente manera:

%hash = (
"diez",10,
"cien",100,
"mil",1000,
);

Representa que diez, cien y mil ...

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