Foro - Perl en Español

Estoy realizando un CGI que envíe los datos recibidos a otra página mediante POST, en un entorno que tengo Perl en versión 5.6.1, funciona correctamente, pero en el entorno que tengo Perl en versión 5.8.5 me devuelve el error: 500 Can't connect to URL_DESTINO:80 (connect: timeout)
¿Puede ser por el cambio de versión? ¿Alguna otra idea?
Gracias de antemano
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use LWP::UserAgent;
use HTTP::Request;
//leer el ...

Buenas, necesito hacer una especie de MSN pero no sé por dónde empezar porque no se me ocurre cómo se puede hacer.
Solo sé que necesito multihilo y en el servidor se tiene que guardar la conversación.
Entonces yo creo que debe seguir los siguientes pasos:

1. Un cliente se conecta al servidor y le dice una frase además de a la persona que se lo quiere decir.

2. El servidor crea una conexión con ...

Buenas. Estuve buscando en el foro pero no encontré mi problema.
Tengo varios archivos XML los cuales me gustaría guardar cierta información de estos en una base de datos Mysql.
¿Alguno tiene algún ejemplo de esto?
Gracias

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 saber si el sistema es de 32 ó 64 bits?

Intenté por Config.pm pero no encontré el flag...
Con POSIX usando uname, pero no hay tal información.

¿Alguna idiea?

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.