Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Re: Saving certain email attachements using MIME::Tools

by neilwatson (Priest)
on Aug 30, 2002 at 13:18 UTC ( #194100=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
      foreach $x (@attypes){
        if ($subentity->mime_type =~ m/$x/i){
          push @attname, $subentity->head->mime_attr('content-disposition.