#!/usr/local/bin/perl5 -w use strict; my $mbox=$ARGV[0] || die("Usage $0 <mailbox>\n"); open(MBOX, "<$mbox") || die("Can't open mailbox $mbox! ($!)\n"); my @mails = grep(/^From /, <MBOX>); close(MBOX); print @mails;
In reply to Re: stream parsing an mbox file
by jink
in thread stream parsing an mbox file
by johnfoobar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |