neilwatson has asked for the wisdom of the Perl Monks concerning the following question:
Brothers and Sisters,
I'm creating a script that will save certain email attachments and ignore others:
my @attypes= qw(application/gzip application/x-tgz application/zip application/bzip2 ); my ($x, @attachment, $attachment, @attname); SNIP foreach $x (@attypes){ print "x = $x subentity =".$subentity->mime_type."\n"; if ($subentity->mime_type =~ m/$x/i){ $attachment = join "", @{$subentity->body}; push @attachment, $attachment; print $subentity->head->get('Filename')."\n"; if ($subentity->mime_type =~ m/filename="(.*)"/i){ push @attname, $1; last; } }
The prints are for debugging. Question, I can figure our the mime-type but how do I get the filename and the contents of that file?
Thank you,
Neil Watson
watson-wilson.ca
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Saving certain email attachements using MIME::Tools
by jlongino (Parson) on Aug 30, 2002 at 00:20 UTC | |
Re: Saving certain email attachements using MIME::Tools
by blahblahblah (Priest) on Aug 30, 2002 at 00:04 UTC | |
by neilwatson (Priest) on Aug 30, 2002 at 13:18 UTC | |
by blahblahblah (Priest) on Sep 03, 2002 at 04:28 UTC | |
Re: Saving certain email attachements using MIME::Tools
by neilwatson (Priest) on Sep 05, 2002 at 17:07 UTC | |
Re: Saving certain email attachements using MIME::Tools
by Anonymous Monk on Aug 30, 2002 at 21:35 UTC |
Back to
Seekers of Perl Wisdom