Sign in
apache
/
james-mime4j
/
mime4j_0_2
/
.
/
bin
/
split-mbox.pl
blob: dd4a87ba2be457f43124f470836017223b1db6be [
file
] [
log
] [
blame
]
#!/usr/bin/perl -pl
if
(
/^From /
)
{
close
(
OUT
);
open
(
OUT
,
">>message."
.
$i
++)
||
die
"Can't open new file! $i\n"
;
select
(
OUT
);
print
STDERR
"Opened $i"
;
}