On 10/01/02 14:39 -0400, darren chamberlain wrote:
> * Michael Tatge <[EMAIL PROTECTED]> [2002-10-01 14:17]:
> > Why don't you run a little shell or perl script against that folder?
>
> Hmm...
>
> #!/usr/bin/perl
>
> use strict;
>
> use File::Slurp;
> use Email::Find;
>
> my (%addrs, $data, $mbox, $finder);
>
> $data = read_file("mutt-users"); # read_file comes from File::Slurp
> $mbox = "$ENV{HOME}/Mail/lists/mutt-users";
>
> $finder = Email::Find->new(sub { $addrs{ $_[0]->format }++ });
> $finder->find(\$data);
>
> print join "\n", sort keys %addrs;
>
> This works, assuming you have File::Slurp and Email::Find installed.
> The problem with this, though, is that it picks up Message-ID's.
This worked just as promised! Cleaning out the Message-IDs was no big
deal. Thanks a million Darren! Forgive my delay in responding, but I
just found time to do this today. Also, File::Slurp and Email::Find had
to be installed.
I piped the output to a file. The only thing I had to then do was to
prepend the word 'alias' and a dummy alias (I used numbers) before each
address, so as to make the list work with mutt. (I did this via a
spreadsheet) I am a COMPLETE Perl novice, so please forgive this
question, but how could the script be modified to automate this
prepending?
John
