in reply to Detachments II: The Sequel
use Mail::Message; use File::Temp; my $dir = tempdir; mkdir $dir or die; foreach my $p ($message->parts) { my $fn = $part->dispositionFilename($dir); $part->decoded->write(filename => $fn) or die "Couldn't write to $fn: $!\n"; }
20031110 Edit by Corion: Changed PRE to CODE tags, closed list
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Detachments II: The Sequel
by Anonymous Monk on Nov 10, 2003 at 09:47 UTC |