Foro - Perl en Español

Buenos días.

Tengo una duda de novato: quiero abrir un fichero TXT y copiar su texto a una variable. Lo he probado con ésto:

$file= "contingut.txt";
open(HOLA, "<$file");

¿Me podéis echar una mano?

Gracias de antemano :wink:

¡Buenas!

Pues eso, es que tengo el script para configurar switch y es muy, muy lento. Me tarda cerca de 15-18 minutos en lanzarme una configuración, que en cambio lanzada a través de expect me tarda apenas 8m :\\\

Es que en expect aún no tengo hecho un bucle para que me lea varias IP de switch y así vaya haciendo. En el Perl, sí. La configuración la lee en ambos de un archivo de ...

Bueno, pues ando buscando información sobre cómo bloquear el teclado, el ratón, para poder usarlo en Perl. ¿Alguien sabe dónde puedo encontrar alguna información al respecto? Se los agradecería.

¡Buenas!

Problemita con el ssh :s He mirado en CPAN y no me aclaro. Necesito ejecutar un programita (nricv) en una UNIX, la cual no puedo configurar, sólo tengo acceso "básico". Ejecuto el siguiente script para que entre y me capture el resultado de la pantalla pero me salta con:

$ perl nricv.pl
Permission denied (publickey,password,keyboard-interactive).

Manualmente con ssh -l "user" 172.26.25.3, sí puedo entrar y me pide la contraseña normal, pero sino es ...

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

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