chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
blank-kvm-image: kvm-img -> qemu-img
[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