Foro - Perl en Español

[Richo]

Hola, ¿cómo les va?

¿Alguien podría ayudarme en la manera de cómo puedo enviar un archivo adjunto en Perl? Ya sé cómo enviar correo y lo que pasa es que tengo un programa en Perl que genera archivos.doc (Word) y quiero que esos archivos se envíen mediante correo sin usar cgi. Es un simple script, muchas gracias.

[explorer39]

Suponiendo que el fichero archivo.doc está grabado a disco, una forma de hacerlo es creando un mensaje de tipo MIME multiparte, adjuntar el archivo a una parte y, opcionalmente, poner algo de texto en la parte principal.

Sintáxis: [ Descargar ] [ Ocultar ] [ Seleccionar ] [ Expandir ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. use MIME::Entity;
2.  
3. my $msg = MIME::Entity->build(
4.     Type     => 'multipart/mixed',
5.     From     => 'yo@en.mi.servidor.com',
6.     To       => 'destinatario@en.su.dominio.com',
7.     Bcc      => 'destinatario.oculto@en.otro.dominio.com',
8.     Subject  => "Archivo DOC",
9. );
10.  
11. $msg->attach(
12.     Path     => 'archivo.doc',
13.     Type     => 'application/msword',
14.     Encoding => 'base64',
15. );
16. $msg->smtpsend(
17.     Host     => 'servidor.de.correo.com',
18.     Hello    => 'nuestro.ordenador.com',
19. );

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4