Foro - Perl en Español

Hola a todos de nuevo.

Estaba buscando y no encuentro (supongo que no habré sabido buscar bien) alguna función para poder cronometrar el tiempo que estoy en cada telnet que hago para después mostrar un total.

¿Existe algo así? En algunas ocasiones me sería muy útil para poder hacer estimaciones de tiempo al lanzar configuraciones de forma masiva.

Gracias,
iñaki

Hola a todos mi problema es el siguiente:
Estoy intentando hacer un cajero automático y he creado una carpeta usuarios donde supuestamente se me tienen que generar las contraseñas,
en el httpd.conf le he puesto:

Alias /usuarios/ "/ruta/usuarios/"
<Directory "/ruta/usarios">
AuthType Basic
AuthName "protegido"
AuthUserfile "/ruta/pass.txt
Require User alicia
</Directory>

Pero después a la hora de crear pass.txt para meterle el usuario con

htpasswd -c /ruta/pass.txt alicia

el símbolo del sistema me dice que ese ...

Hola, un saludo a todos.

Tengo una página en perl donde me calcula unas cantidades pero me dan algunos errores en su calculo, ya que si pongo 2 decimales las cantidades no son correctas, no se si sera porque es flotante , la programacion es la siguiente :

open(FICHERO, "$cambio");
my $sumat, $sumat1, $sumat2, $sumat3, $sumat4, $sumat5, $sumat6, $sumat7;
@lineas = <FICHERO>;
foreach my $linea (@lineas){
my @sumana = split(/;/,$linea);
if (@sumana =~ / /){ ...

Que tal? soy nuevo en el mundo de perl y me surgio un problema haciendo un script para que lea un archivo de ips y verifique si tiene un puerto X abierto, es una especie de scanner, que al crear el socket "$sock = IO::Socket::INET->new(PeerAddr => "$IP" , PeerPort => 80, Proto => "tcp", Timeout => 1)" y ponerle un || $a++; para que vaya incrementado tengo un problema al llegar a una ip cuyo ...

Hola, necesitaría algo así, como un array que se acceda por su índice {0, 1, ... n-1}, y que dentro de cada $array hubiera una lista que se pueda llenar, consultar y tal.

Me he mirado el tema de las tablas de hash, pero hay que declarar cada posición, ¿verdad? Yo simplemente quiero acceder con el típico índice de un vector...

Y si eso se pudiera hacer, ya para completar, me iría de coña que ...

yo ya aregle el problema del que le esplique ahora me da otro error aqui te lo pongo

Code: Seleccionar todo

*** An error occurred: Error opening socket: Unknown error

en los logs da este error

Code: Seleccionar todo

Use of uninitialized value in bitwise and (&) at modules/parse.pl line 56.\n

aqui le pongo el parse.pl si le ase falta mas dimelo para mandarte el programa completo.

#### Parsing Functions
use strict;

## Reads a config file from the filename passed ...

Hola, ¿qué tal? Tengo un problemita. Estoy tratando de correr un programa de Perl que es un webchat de IRC. No me corre me da un error pero yo lo abro bien cuando va a conectar me da este error.

*** An error occurred: Mkdir error: No such file or directory

Este error en los log del servidor.

Use of uninitialized value in bitwise and (&) at modules/parse.pl line 56.\n


Le agradecería que me pudieran ...

Saludos.

He investigado en Internet acerca de cómo generar reportes en archivos con formato PDF con un programa de Perl, como por ejemplo, realizar una consulta a una base de datos y guardar la salida de la consulta en un archivo PDF, todo desde Perl.

No he encontrado mucho, pero ojalá alguien de ustedes me alumbre el camino, solo necesito saber si se puede hacer. Y donde puedo encontrar información al respecto.

Saludos y gracias ...

Tengo un problema...estoy realizando un aplicacion en perl y esta aplicacion la monto en un servidor apache. En la programacion utilizo frames en ellas. El problema que se me esta presentando es que las imagenes que quiero imprimir nunca me aparecen o cuando trato de mostralas el programa me meustra como si tuviera un error en el servidor . Quisiera que me ayudaran con este problema o me dijeran en donde puedo buscar la forma ...

Como ya os he dicho en otro mensaje, tengo problemas de duración de tiempo en mi script. Mirando, mirando, he visto que la parte que más tiempo tarda (¡también es la que hace más cosas!) es esta. Es el algoritmo Horspool y lo he traducido directamente del C. Pero seguro que en Perl se puede optimizar con muchos truquillos de estos que sabéis vosotros ;):

Programa Original ...