chiark / gitweb /
pwhich: '#! /bin/sh -e' -> '#! /bin/sh', 'set -e'.
[bin.git] / 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