Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

nnml2mbox

by mikeirw (Pilgrim)
on Jun 11, 2002 at 15:45 UTC ( #173524=sourcecode: print w/replies, xml ) Need Help??
Category: Utility Scripts
Author/Contact Info Mike Irwin - mikeirw@pobox.com
Description:

I needed to view the contents of a nnml mail directory, but didn't have access to Emacs or Gnus, so I whipped up this simple script to allow me to use mail -f instead. I must say that I'm a Perl newbie, so it may need some work. If so, I'll appreciate any comments.

A quick note: I did not include any code to match Gcc'ed emails (which doesn't generate a From header), so you may need to add that before running.

#!/usr/bin/perl -w
#
# Turn a Gnus nnml file into mbox format.  Prints to STDOUT.
# Usage: nnml2mbox files ...

use strict;
use File::Find;

my @nnml_files;
find sub {
    push @nnml_files, $File::Find::name
      if /^\d+/;
}, @ARGV;
@ARGV = @nnml_files;
while (<>) {
    s/^X-From-Line:/\nFrom/;
    print;
}
Replies are listed 'Best First'.
Re: nnml2mbox
by fundflow (Chaplain) on Jun 15, 2002 at 09:57 UTC
    Just to be on the safe side, you might do the following change:
    s/^X-From-Line:/\nFrom/;
      Good suggestion, fundflow. I went ahead and updated the code.
Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://173524]
help
Chatterbox?
[r@j]: Actully $Process_Java this is getting from config file
[Discipulus]: choroba so much work porting from C and the resulting code exceed the 2 sec limit.. ;=(

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (15)
As of 2017-10-23 15:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (280 votes). Check out past polls.

    Notices?