[Programación] Re: [Programación] Re: [Programación] Re: [Programación] ¿Como hacer para sacar el html de un mail con ayuda de Perl?

[Federico Wiecko]

On Monday 26 December 2005 13:04, Sebastián D. Criado wrote:
> El Lunes 26 Diciembre 2005 12:14, Federico Wiecko escribió:
> > Hola Sebastian,
> >
> > hace años que no estoy con esto, pero me parece innecesario meterse a
> > parsear html cuando sólo necesitas extraerlo a un archivo.
> >
> > Probá utilizar MIME::Parser, aqui van algunos ejemplos de uso:
> >
> > http://www.unbf.ca/its/documentation/perl/mime/Parser.pm.html
> >  http://www.hmug.org/man/3/MIME::Parser.php
>
> Encotnre un ejemplo de MIME::Parser bastante útil.
> http://www.cs.indiana.edu/~kinzler/home/binp/mimeexplode
>
> Funciona dejandote los archivos obtenidos en un directorio que crea on the
> fly.
>
> Ahora solo me queda ver como hago para que me deje siempre el mismo nombre
> de archivo y que pueda hacer una u otra cosa leyendo el Subject.
fijate la opción output_prefix, si no es esa .. fijate en el manual page.

> Necesti algún otro modulo para leer el subject del mail o simplemente busco
> la cadena y comparo?

No, el módulo Parser parsea el MIME y mantiene un hash de cada cabecera. Por 
ejemplo, para leer el subject tenes que hacer

my $parser= new MIME::Parser;
$entity=$parser->read(\*STDIN) or Error::error "No se pudo parsear la 
entrada";
my $head = $entity->head;
my $body= $entity->bodyhandle;

$subject=$head->get('Subject',0)

y despues podes hacer las clásicas comparaciones de strings.

Espero te sirva.
Federico .-


> En ese caso, como comparo?


>
> Saludos.-