
FishMonger
Veteran
/ Moderator
Apr 1, 2011, 2:58 PM
Post #2 of 6
(4137 views)
|
Re: [rfransix] Tough Extract for Email Address
[In reply to]
|
Can't Post
|
|
Your file format is not plain ascii, so this may need a slight adjustment.
#!/usr/bin/perl use strict; use warnings FATAL => 'all'; use Email::Find; use File::Slurp; my @email_addresses; my $finder = Email::Find->new(sub { my($email, $orig_email) = @_; push @email_addresses, $email->format; }); my $file_contents = read_file('rfi.txt'); $finder->find(\$file_contents); print join("\n", @email_addresses);
|