Les mando el código para que lo vean.
Using perl Syntax Highlighting
#! /usr/bin/perl
use Email::MIME;
my $parsed = Email::MIME->new($message); #Tome un mensaje de correo
#my $mail = Email::Simple->new($text);
my @received = $mail->header("Received");
my $old_body = $mail->body; #salvar el body original
$mail->body_set("Not Perl? You suck!");
print $mail->as_string; #convertirlo en string
my $parsed = Email::MIME->new($message); #Se de cuenta si el mensaje es multipart (contiene adjuntos) y
#my @parts = $parsed->parts; #separe la parte de texto plano y la parte de adjuntos
for (@parts) { #Y en @parts tienes el conjunto de partes. Cada parte la puedes manipular para
my $t = $_->content_type; #saber tipo, archivo a disponer (si es adjunto) y "cuerpo" como tal.
my $f = $_->filename;
my $b = $_->body;
}
use Email::MIME;
my $parsed = Email::MIME->new($message); #Tome un mensaje de correo
#my $mail = Email::Simple->new($text);
my @received = $mail->header("Received");
my $old_body = $mail->body; #salvar el body original
$mail->body_set("Not Perl? You suck!");
print $mail->as_string; #convertirlo en string
my $parsed = Email::MIME->new($message); #Se de cuenta si el mensaje es multipart (contiene adjuntos) y
#my @parts = $parsed->parts; #separe la parte de texto plano y la parte de adjuntos
for (@parts) { #Y en @parts tienes el conjunto de partes. Cada parte la puedes manipular para
my $t = $_->content_type; #saber tipo, archivo a disponer (si es adjunto) y "cuerpo" como tal.
my $f = $_->filename;
my $b = $_->body;
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Desde ya les agradezco su ayuda.
