user-tools/mime_extract

   1 #!/usr/bin/env perl
   2
   3 use MIME::Parser;
   4 use warnings;
   5
   6 $|++;
   7
   8 if(not $outputdir = shift @ARGV or $outputdir eq '--help') { die "Usage: $0 [directoy to save] [files...]\n"; }
   9 die "Directory is not writable: $outputdir\n" if ! -w $outputdir;
  10
  11 $parser = new MIME::Parser;
  12 $parser->output_dir($outputdir);
  13
  14
  15 for my $filename (@ARGV)
  16 {
  17         $entity = $parser->parse_open($filename);
  18         $entity->dump_skeleton;
  19 }
  20
  21
  22 __END__
  23
  24 =pod
  25
  26 =head1 NAME
  27
  28 mime_extract - Extract parts from a MIME multipart file and save them into separate files
  29
  30 =cut
  31