mailsplit

   1 #! /usr/bin/perl -w
   2 use strict;
   3
   4 sub usage ()
   5 {
   6     print <<EOF;
   7 Usage: $0 directory mail-folder ...
   8 EOF
   9     exit 0;
  10 }
  11
  12 my $directory = shift or usage;
  13 -d $directory or usage;
  14
  15 my $message = 0;
  16 open MESSAGE, "> $directory/$message";
  17 my $empty = 1;
  18 while (<>)
  19 {
  20     if (/^From /)
  21     {
  22         next if $empty;
  23         $message++;
  24         open MESSAGE, "> $directory/$message";
  25         $empty = 1;
  26     }
  27     else
  28     {
  29         print MESSAGE $_;
  30         $empty = 0;
  31     }
  32 }
  33 close MESSAGE;
  34