Foro - Perl en Español

Hola Amigos Perlianos :

Necesito hacer un script Perl para poder filtrar los reportes de servicio que tengan una antigüedad de más de dos horas en el sistema y tengan un estatus "pendiente"

La tabla tiene un campo llamado "Indate" del tipo datetime que guarda la fecha y la hora en que se ingresó el reporte en el sistema y otro que se llama "estatus", que es un varchar.

Mi pregunta es: ¿se puede comparar ...

Buenas,

Tal vez esta pregunta no sea de nivel intermedio, si es así mis disculpas al moderador.

Veréis, estoy usando un pm que contiene funciones, pero en vez de abrir la conexión y cerrarla en cada conexión quiero hacer lo siguiente.

En el fichero pl que tengo, el use al fichero pm abro la conexión y la cierro. En el medio de esas sentencias, quiero usar las funciones que correspondan, pero no sé cómo poder ...

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.