Maybe something like this will help (it is a piece of code that I recently wrote for my weblog to accept entries via email):
#!/usr/bin/perl -w
use strict;
use MIME::Parser;
use FileHandle;
use File::Path;
$|++; # autoflush on
# Directory paths
my $tmp_dir = '/home/moxliukas/tmp';
my $output_dir = '/home/moxliukas/public_html/moblog/images';
my $parser = MIME::Parser->new;
$parser->output_dir($tmp_dir);
my $entry = $parser->parse(\*STDIN);
# for each MIME message part...
for my $part ($entry->parts) {
# ...check MIME type
my $mime = $part->mime_type;
if($mime =~ /jpeg/) {
# if it is JPG, generate a new filename
my $url = time() . '.jpg';
my $fh = FileHandle->new($output_dir . '/' . $url, 'w'
+);
binmode($fh);
# Let's write the JPG to the output directory
my $ifh = $part->open('r');
$fh->print($ifh->getlines);
$_->close for($fh, $ifh);
}
$dbh->disconnect;
Hope this helps.
-
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.
|