Foro - Perl en Español

Buenas tardes a todos,

Estoy intentando crear un programita que se conecte por SSH2 a un dispositivo, para ello me he instalado el ActivePerl 5.8.8 con el módulo NET::SSH:Perl y he hecho una prueba sencilla con este script:

use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new("172.17.24.2", protocol => 2);

$ssh->login("user","pass");

y al ejecutarlo me da el siguiente error:

Code: Seleccionar todo

The getpwuid function is unimplemented at :/Perl/site/lib/Net/SSH/Perl.pm line 110.

Mi duda es que esta función no sé dónde ha ...

Hola

Estoy realizando una búsqueda en un archivo a partir de otro, y hago un merge de los archivos
Ejemplo:

input1.txt

Code: Seleccionar todo

'011200190ABELLÁN ABELLÁN  CELIA     '
'011200191ABELLÁN LLOBREGATSANDRA    '
'011200192AGUILAR ESCRIBANOJAVIER    '
'011200193AGULLÓ CRESPO    ANA ISABEL'
'011200194ALBERO GARCÍA    ELENA     '
'011200195ALBERT SÁNCHEZ   CRISTINA  '
'011200196ALCARAZ BUADES   DAVID     '
'011200197ALDEGUER QUESADA SANTIAGO  '
'011200198ALDEGUER SERRANO REBECA    '

El archivo es posicional y ésta es su estructura:
Desde la posición 0 a la posición 1 es el Identificador ...

Hola de nuevo

Me gustaría saber cuál es la forma, la mejor forma, la forma más usada o la que usan ustedes para validar que una variable pasada por parámetros al ejecutar el script exista y tenga valor.

Me explico.

Al ejecutar lo siguiente:

#perl myscript.pl --input=file.txt --data=hola --new_data=chao

Dentro del script admito como válido que las variables input, data y new_data existan y tengan valor. Sé que las variables están en $ARGV. Como dije ...

Hola

¿Cómo puedo saber cuánto se ha demorado mi script en ejecutarse con precisión de segundos y milisegundos?


Saludos

Navegando por ahi, me encontre un script para checkear proxies, el problema es que me tira un error al tratar de ejecutarlo que no se solucionarlo....


Thread::Pool::new passed bad attribute name 'HASH(0x1b82874)' at C:\test.pl line 54


EL codigo del script es el siguiente...

#!/usr/bin/perl
# proxycheck, multi cheker proksei
#
# Usage :
# ./sa-proxycheck.pl --input=in.txt --output=out.txt
#
# Example : ./sa-proxycheck.pl -i rawlist.txt -o goodlist.txt
#
#
# -taking part spisokproxei and ...

Cual es la razón de que esto no funcione:

$var = 'archivo.txt'
($nombre,$ext) = split('.'.$var,2);

Si lo separa otro carácter funciona, pero si es punto no.

Saludos.

Cómo puedo saber si un número dado es entero o decimal?

No es para hacer algo matemático, es para saber si la entrada de un argumento está bien hecha:

Los argumentos deben ser pares, es decir ./programa a b.
en entonses yo hago esto -> $numero = ($#ARGV) / 2;
Si es decimal quiere decir que la entrada en incorrecta pero no se como saber si es entera o no.

Tenemos un conjunto de líneas de esta forma:

Code: Seleccionar todo

09AAAAABBBBBBTT
02BBBBBBAAAAAAA
15BBBBBAAAAAAAA
11AAAAAABBBBBRR

Como se vé, no hay separador de campos.

Hay que hacer un programa que nos ordene las líneas según los campos indicados en la línea de argumentos del programa. Así, por ejemplo,
perl ordenar.pl 2,7 8,12se refiere a que la ordenación se ha de hacer por dos campos; el primero está desde el carácter 2 hasta el 7 y el segundo, desde el 8 ...

Hola a todos,

El caso es que necesito acceder desde un módulo Perl (pm1) a una variable que se encuentra definida en otro módulo Perl (pm2).
El segundo módulo Perl (pm2) hace uso del primero:
use pm1;

¿Cómo puedo tener acceso a las variables definidas en pm1?
Lo he intentado con pm1::nombre_variable; pero el intérprete se queja.

¿Alguien me puede echar una mano?
¡¡Muchas gracias!!
¡Saludos!
Felipe

Hola a todos,

El caso es que necesito implementar un mecanismo de timeout en mi programa: si a los 20 minutos un proceso de generación de informes no ha terminado (puede terminar antes de dichos 20 minutos), pues dicho mecanismo debe activarse y terminar la generación de dicho informe justo en ese momento.
¿Alguien sabe de algún modulo Perl especializado en eso? Sino, ¿alguien podría darme algún ejemplo muy simple o algun link interesante?
Es ...