ipreg-mail-uplift

   1 #!/usr/bin/perl
   2
   3 # reformat from MH to mbox
   4
   5 use warnings;
   6 use strict;
   7
   8 sub shite { die "ipreg-mail-uplift: @_: $!\n"; }
   9 sub shit  { die "ipreg-mail-uplift: @_\n"; }
  10
  11 for my $f (<ipreg-mail/Institutions/*>) {
  12   next unless -f $f;
  13   print "processing $f\n";
  14   open my $in, '<', $f
  15     or shite "open < $f";
  16   my @f = map s{^[+][+][+]\s+
  17                 ([a-z]+[0-9]*[ ] # user
  18                 [A-Z][a-z][a-z][ ] # day
  19                 [A-Z][a-z][a-z])\s+ # mon
  20                 ([0-9]+)\s+ # date
  21                 ([0-9][0-9]:[0-9][0-9]:[0-9][0-9][ ] # time
  22                 [A-Z][A-Z][A-Z][ ] # zone
  23                 [12][0-9][0-9][0-9])\s*$ # year
  24                }{sprintf "From %s %2d %s\n", $1, $2, $3}xe,
  25                <$in>;
  26   open my $out, '>', "$f.new"
  27     or shite "open > $f.new";
  28   print $out @f;
  29 }