Hi,
How i can get the attached files of a mail message?
My CODE:
#!/usr/bin/perl
$homedir='/home/celflog/www/teste';
use Mail::POP3Client;
use IO::File;
use Mail::Message::Attachment::Stripper;
$pop = new Mail::POP3Client(
USER => 'myuser',
PASSWORD => "mypass",
HOST => "mail.server.com"
);
$msg=$pop->Retrieve(1);
print "$msg";
$m = Mail::Message::Attachment::Stripper->new($msg);
@attachments = $m->attachments;
foreach $a(@attachments) {
next if $a->{content_type} !~ /jpeg|jpg/i;
# Ignore invalids attached files
$f = new IO::File "$homedir" . $a->{filename}, "w" or die "Can not
+create file!";
print $f $a->{payload};
}
He don't work ... 20061227 Janitored by Corion: Added code tags as per Writeup Formatting Tips
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|