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

[Sebastián D. Criado]

--nextPart2248066.TnLH3WjIHg
Content-Type: text/plain;
  charset="utf-8"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

El Lunes 26 Diciembre 2005 13:39, Federico Wiecko escribi=C3=B3:
> On Monday 26 December 2005 13:04, Sebasti=C3=A1n D. Criado wrote:
> > El Lunes 26 Diciembre 2005 12:14, Federico Wiecko escribi=C3=B3:
> > > Hola Sebastian,
> > >
> > > hace a=C3=B1os que no estoy con esto, pero me parece innecesario mete=
rse a
> > > parsear html cuando s=C3=B3lo necesitas extraerlo a un archivo.
> > >
> > > Prob=C3=A1 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 =C3=BAtil.
> > 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=C3=B3n output_prefix, si no es esa .. fijate en el manual =
page.
>
> > Necesti alg=C3=BAn otro modulo para leer el subject del mail o simpleme=
nte
> > busco la cadena y comparo?
>
> No, el m=C3=B3dulo Parser parsea el MIME y mantiene un hash de cada cabec=
era.
> Por ejemplo, para leer el subject tenes que hacer
>
> my $parser=3D new MIME::Parser;
> $entity=3D$parser->read(\*STDIN) or Error::error "No se pudo parsear la
> entrada";
> my $head =3D $entity->head;
> my $body=3D $entity->bodyhandle;
>
> $subject=3D$head->get('Subject',0)
Todo lo otro me funciono perfecto, muchas gracias, ahora me queda esta duda.
Quiero obtener solo una parte del mail. En un caso es un pdf y en otro un h=
tml
El tema es que cuando hace el parseo me deja 3 archivos por cada mail con e=
l=20
nombre del prefix y un numero.

Yo lo que quiero es que me deje directamente un archivo llamado


file.html
o
file.pdf=20

y descartar lo demas.

Es estado viendo la documentacion de CPAN y lo =C3=BAnico que esta es el pr=
efix lo=20
cual he usado, pero tengo que andar renombrando los archivos usando wildcar=
d.

Sa=C3=B1uidos._

=2D-=20

Sebasti=C3=A1n D. Criado - scriado{en}ciudad.com.ar
** 5tas Jornadas Regionales de Software Libre - Rosario 2005 -=20
http://jornadas.ant.org.ar **
L.U.G.R.o - http://www.lugro.org.ar
GNU/Linux Registered User # 146768
=2D------------------------------------------------------------------
"Si el Universo fuera un programa estar=C3=ADa hecho en C, y correr=C3=ADa =
sobre
un sistema UNIX"
                                                   An=C3=B3nimo.

		=09

--nextPart2248066.TnLH3WjIHg
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2 (GNU/Linux)

iD8DBQBDtCJE8hmHQ8ZCg0IRAs0zAKDCW+w97tQndxNs6GC4N/A1XEbHeACfals+
ZQdQNuvqxU/LmnGECnKNF+8=
=JBNJ
-----END PGP SIGNATURE-----

--nextPart2248066.TnLH3WjIHg--