Foro - Perl en Español

Que tal.

El problema que tengo es que cuando ejecuto cgi en Perl, checo los log (/var/log/httpd) y al menos me genera un log como de 1 Mb. Ya he intentado varias cosas para evitar que estos archivos se llenen lo menos posible. Uno de los warnings más comunes que me manda son estos:

[Tue May 08 15:42:07 2007] [error] [client 130.10.15.5] [Tue May 8 15:42:07 2007] llamadas_horas.cgi: Use of uninitialized value in addition (+) ...

Hola amigos, veréis, tengo que hacer un trabajo para la facultad, algo sencillo, un benchmark portable; debe ser en Perl por lo que necesito algo de ayuda (yo controlo c, c++, java).

He visto que existe un módulo llamado benchmark con el que puedes medir el tiempo que tarda en hacer algo determinado; necesito saber si se puede hacer algo como medir cuántos bloques de datos se pueden escribir en disco por espacio de tiempo, ...

¡hola!

Mi duda es la siguiente:
Necesito alguna función que me permita obtener el nombre de la máquina en la cual estoy ejecutando mi programa Perl para, en función del nombre, realizar una serie de pasos.
Gracias por su ayuda.

Cómo crear números aleatorios rand sin que se dupliquen.

Hola amigos.

Quiero ejecutar el comando DIR con las comillas ` y lo hago así:

$dirResults = `dir /ad /B C:\\Releases\\TEST\\2.1.1002\\rod*.`;

El problema es que cuando DIR no encuentra algo, manda a la pantalla
"File not Found" pero no lo manda a la variable....

Mi duda es cómo puedo hacer que este mensaje no me salga en la pantalla.

¡Gracias saludos a todos!

Buenas :
Mi pregunta es la siguiente. En un fichero txt tengo guardado cuentas y logins de diferentes usuarios. Lo que tengo que hacer es conectarme al servidor a través de una cuenta y de un login pero solo si el fichero tiene los permiso -r--------, es decir, solo puede leerlo el dueño del fichero. ¿Cómo puedo saber esto a través de Perl?
Gracias
Saludo

Espero que alguien me pueda ayudar:
Cada vez que intento ejecutar un script de Perl en la línea use tk me da el siguiente error en consola :

Code: Seleccionar todo

blanca@blanca-laptop:~/Desktop/server$ ./tk.pl
Can't locate Tk.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./tk.pl line 2.
BEGIN failed--compilation aborted at ./tk.pl line 2.

¿Alguien me puedo ayudar?
Gracias

Code: Seleccionar todo

Subroutine menu redefined at script.cgi line 58.
Variable "$ruta_cgi" will not stay shared at /home/perico/public_html/perl/script.cgi line 66.
Subroutine menu redefined at /home/perico/public_html/perl/script.cgi line 64.
Variable "$ruta_cgi" will not stay shared at /home/perico/public_html/perl/script.cgi line 91.
Subroutine registro_usuario redefined at /home/perico/public_html/perl/script.cgi line 89.

Me aparece ese error. ¿Qué quiere decir?

Buenas :
Es la primera vez que escribo en este foro, tengo una serie de preguntas por favor:
Me gustaría desarrollar un cliente / servidor Pop 3 en Perl sobre UNIX. Me gustaría saber cómo y dónde puedo encontrar las funciones utilizadas tanto por el cliente como el server.
Muchas gracias
Saludos
Manu

Hola de nuevo, he realizado un script donde después de rellenar unos formularios, por ejemplo nombre y apellidos y realicemos el submit.

Para ello al principio hago un if, donde evalúo si esta definida la variable $Input{'alta'} (eso quiere decir que se ha rellenado el formulario con los datos, nombre y apellidos) por lo tanto los guardo (abrir fichero modo escribir al final, etc). Pero como podría volver a poner la variable después ($Input{'alta'} como ...