Foro - Perl en Español

Buenos días,

Os planteo una duda:
Un programa lee de un fichero plano línea a línea y llegado a un determinado momento (el cual se sabe en tiempo de ejecución) necesito que lea la línea que está dos posiciones antes (es decir una línea que ya he leído con anterioridad).

¿Hay alguna manera de hacerlo en Perl si no sé la cantidad de bytes que tengo que retroceder?

Muchas gracias.

Buenos días foreros.

Soy un meganovato en el tema del Perl pues hace poco que descubrí este lenguaje y me viene de perlas para hacer algún que otro proyecto.

Me gustaría saber cómo puedo filtrar una variable ($texto) para que solo queden en la misma los caracteres alfanuméricos y elimine caracteres extraños,

Por ejemplo, si la variable $texto contiene "0123~+/ABcDef╚~" pues que dicha variable quede en "0123ABcDef".

Un saludo.

Hola.

Bueno, básicamente mi problema es que Windows no reconoce "pp" como un comando interno o externo, programa o archivo por lotes ejecutable.

Por supuesto el módulo PAR-Packer está instalado, descomprimiendo el archivo tar.gz en mi ordenador y ejecutando con perl makefile.pl.

También he realizado búsquedas en este y otros foros acerca de mi problema, sin llegar a encontrar solución. Por ejemplo he seguido los pasos citados en este post, agregué el repositorio de trouchelle.com ...

Hola a todos,

Pues tengo un problema al instalar módulos, ya que antes no me pasaba (los instalaba correctamente).

En el terminal aparece lo siguiente:
CPAN: Storable loaded ok (v2.15)
Going to read '/home/fernando/.cpan/Metadata'
Database was generated on Mon, 01 Feb 2010 22:42:20 GMT
CPAN: LWP::UserAgent loaded ok (v5.834)
CPAN: Time::HiRes loaded ok (v1.86)
Fetching with LWP:
ftp://ftp.gui.uva.es/sites/cpan.org/authors/01mailrc.txt.gz
LWP failed with code message
CPAN: Net::FTP loaded ok (v2.77)
Fetching with Net::FTP:
ftp://ftp.gui.uva.es/sites/cpan.org/authors/01mailrc.txt.gz
Catching error: ...

Ante todo disculparme, ya que no me he presentado antes. Estoy empezando Perl, sé programar algo de shell y lo básico en Ruby, y Perl, lo mínimo. Tengo que hacer un parser de logs específico, en el que necesito pasar lo que parseo a un csv.

1º Empezar a leer un fichero línea a línea.

2º Encontrar un timestamp y convertirlo a un formato más ameno y guardarlo en un array

3º Continuar hasta encontrar ...

He estado implementando el protocolo EPP (Extensible Provisioning Protocol), y ando buscando la forma de dejar el siguiente xml...

<?xml version="1.0" encoding="UTF-8"?><epp xmlns="urn:ietf:params:xml:ns:epp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0 epp-1.0.xsd"><response><result code="1000"><msg>Command completed successfully</msg></result><msgQ count="156" id="307886"/><resData><host:chkData xmlns:host="urn:ietf:params:xml:ns:host-1.0" xsi:schemaLocation="urn:ietf:params:xml:ns:host-1.0 host-1.0.xsd"><host:cd><host:name avail="0">ns1.host.com</host:name><host:reason>In use</host:reason></host:cd></host:chkData></resData><trID><clTRID>ABC-12345</clTRID><svTRID>52495643</svTRID></trID></response></epp>
en el que le sigue,
<?xml version="1.0" encoding="UTF-8"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0 epp-1.0.xsd">
<response>
<result code="1000">
<msg>Command completed successfully</msg>
</result>
<msgQ count="156" id="307886"/>
<resData>
<host:chkData xmlns:host="urn:ietf:params:xml:ns:host-1.0" xsi:schemaLocation="urn:ietf:params:xml:ns:host-1.0 host-1.0.xsd">
<host:cd>
<host:name avail="0">ns1.host.com</host:name>
<host:reason>In use</host:reason>
</host:cd></host:chkData>
</resData>
<trID>
<clTRID>ABC-12345</clTRID> ...

Hola, de nuevo estoy aquí con problemas con la codificación de los archivos.

Necesito guardar un fichero que modifiqué con codificación unicode, pero cuando lo hago, queda almacenado con codificación ansi. Con el mismo código, guardé el archivo con codificación utf8 y ésta sí me la respetó.

Podrían decirme qué es lo que está pasando y cómo puedo guardar el archivo con una codificación unicode.

use Encode qw(from_to);

# me guarda unicode.txt con codificación ansi ...

Hola, estoy trabajando en Perl y necesito copiar datos de un fichero a otro (del fichero 1 al fichero 2).

El problema es que los datos deben concatenarse al fichero 2 pero no al final del mismo.

Me gustaría saber si existe alguna forma de colocar datos en el segundo fichero en una línea específica sin que se borre la información que tenía antes. He buscado como hacerlo, pero hasta ahora solo he encontrado que ...

Buenos días a todos, estoy empezando a usar expresiones regulares en Perl y no sé cómo podría hacer una cosa que os paso a contar.

Tengo un fichero plano con la siguiente estructura en cada fila:

NOMBRE DNI IDENTIFICADOR COLOR LOCALIDAD NOMBRE DNI IDENTIFICADOR COLOR LOCALIDAD

Cada campo va separado por al menos 3 espacios
NOMBRE: cualquier carácter incluido espacio
DNI: 9 letras o números **** puede no aparecer y en su lugar aparecerían 9 ...

Hola a todos.

Ando teniendo una duda porque ando queriendo verificar una consulta a una web que me devuelve un texto plano que debo verificar que es:

Hola aca estoy

Pero hay veces que me devuelve

<h1>Hola aca estoy</h1>

Pero el problema es que yo quiero verificar si me devuelve "Hola aca estoy" en texto plano porque si me devuelve "<h1>Hola aca estoy</h1>" en HTML de nada me serviría. Por un momento pensé si ...