Foro - Perl en Español

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.

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.

Necesito ayuda para formatear una cadena. por ejemplo

#ID (largo 1)
#Nombre(largo 5)
#Apellido(largo 10)
#Telefono(largo 6)
#Edad (largo 2)
$var ='1Pedro Perez 23232956';
$var1 ='1Jaime Perez 28732956';
$var2 ='1SergioPerez 26732956';

El tamaño de las columas es fija.

Me piden que separe con * la columna 1,5 (nombre) y 18,23 (teléfono),siempre me piden por posiciones, entonces debería quedar así:

$var_format = '1*Pedro *Perez *232329*56';
$var1_format = '1*Jaime *Perez *287329*56';
$var2_fotmar = '1*Sergio*Perez *267329*56';

Cualquier ...