Foro - Perl en Español

Bueno aquí esta mi pregunta.

Veremos si existe alguna alma caritativa que gaste de su valioso tiempo.
Antes que nada gracias, por leer y responder, de verdad gracias.

¿Cómo podría realizar un script en Perl que realice lo siguiente?
Que empiece navegando por una url determinada, por ejemplo la de este sitio.
Que "aspire" todos los hiperlinks existentes.
Los guarde en una variable, o (varias variables).
Los analice sintácticamente y deseche los repetidos.
Los guarde ...

Hola,

Tengo un script que lee dos archivos con el mismo formato pero con diferente cantidad de datos, los compara y guarda los elementos diferentes.

Lo que necesito es que esos elementos deben ser agregados en el archivo que no los tiene para "actualizarlo" y volver ambos archivos iguales.

Abro los dos archivos uno en modo lectura y otro en modo lectura/escritura así:

Code: Seleccionar todo

open(FLE1,">>FILE1.TXT) (Lectura/Escritura)
open(FLE2,">FILE.TXT") (Lectura)

Pero...

Cuando se escriben los datos en FLE1 ...

Hola, tengo un problema con DBI que se da cuando ejecuto un procedimiento almacenado que me trae datos y la respuesta es 0 registros (cuando existen datos me los trae sin problemas).

El punto es que al ejecutar execute el programa me envía a la #%#&%#& (censurado).

Estoy trabajando bajo ambiente Windows.

Gracias.

Hola,

En Perl abro un archivo para escritura.
Cuando encuentra la expresión regular buscada quiero borrar esa línea.
¿Cómo puedo hacerlo?

En foros y tutoriales la idea era copiar el archivo que abro a otro archivo y esa línea no copiarla y antes de terminar el programa Perl renombrar éste nuevo archivo.

¿Es la mejor forma de realizar esto? El archivo no tiene muchas líneas.

Saludos,
Paty

¿Por qué al crear un archivo .pl, de repente se desaparece del lugar donde lo pongo a guardar?

Estoy trabajando con Perl en modo consola, tengo un mini programita con el que tiro un listado de nombres desde una tabla de una bases de datos MySQL. Permito la selección de un nombre y lo último que muestro usando una ventanita (popuplabel) es el nombre seleccionado.
O sea que en pantalla me queda, el listado de fondo más la ventanita encima indicando el nombre seleccionado.
Mi problema es que no encontré aún una forma ...

Hola,
tengo un problema con los formatos de dos y unix.
He sacado este código de los tutoriales de la web, en el que se hace un upload de un formulario.

my @pairs = $query->param;
my $nombre_archivo = "/tmp/Archivo.txt";
my $manipulador = $query->upload($pair);

#Abrimos el nuevo archivo
open (OUTFILE, ">$nombre_archivo") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows

#Transferimos byte por byte el archivo
while (my $bytesread ...

Buen día, todos. Tengo un problemita. Tengo un archivo con un formato dado, Ok, y tengo que verificar un columna específica y luego generar otro archivo con esa verificación.
0004 4135 empleado 15 264.00 125.71 138.29 122.00 264.00 264.00 7.92 15.84 15.77 0.00 0.00 34.60 189.87
0004 4169 empleado 15 264.00 264.00 17.60 0.00 281.60 281.60 8.45 16.90 17.42 0.00 0.00 30.09 208.74
0004 4208 empleado 15 114.29 114.29 60.00 28.57 148.58 351.44 351.44 ...

Hola a todos.

Mi pregunta es si estoy haciendo bien querer prevenir una aplicación de ataques XSS realizando un filtrado por medio de expresiones regulares (dentro del cgi que uso para grabar datos en mi base de datos) de los conjuntos de caracteres más comunes en ese tipo de ataques.

Ejemplo: XSS, alert, javascript, <script>, <iframe>, ", ', etc.

Y lo mismo hago en JavaScript para los formularios Ajax.

Espero haberme expresado claramente.
Saludos y ...

Un saludo a todos los integrantes.

Estoy introduciéndome en el mundo de Perl desde hace poco. He leído mucho de su potencial. Después de hacer varias pruebas, no he logrado generar un script que me permita combinar dos archivos. Además, no sé si Perl permitirá procesar archivos con más de 2 millones de líneas.

Tengo un archivo A con
0 1 0.09130000 -0.07460000 4.22670000 1275 1275 1275
0 2 0.09130000 -0.07460000 4.22980000 1284 1284 1284 ...