tools/extract_attachments2

   1 #!/usr/bin/perl
   2 use strict;
   3 use MIME::Parser;
   4 use Date::Format;
   5
   6 my $datadir = '/home/user/tmp';
   7
   8 my @lt = localtime(time);
   9 my $date = strftime("%Y%m%d-%k%M", @lt);
  10 my $parser = new MIME::Parser;
  11
  12 system('mkdir -p '.$datadir.'/'.$date);
  13 $parser->output_dir($datadir.'/'.$date);
  14 my $entity = $parser->parse(\*STDIN) or die;
  15