Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses


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 -

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 (<>) {

Comment on nnml2mbox
Download Code
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:
      Good suggestion, fundflow. I went ahead and updated the code.

Back to Code Catacombs

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://173524]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (15)
As of 2015-07-01 16:14 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (9 votes), past polls