use Email::Find;

# new object oriented interface
my $finder = Email::Find->new(\&callback);
my $num_found - $finder->find(\$text);

# good old functional style
$num_found = find_emails($text, \&callback);

sub callback {
   my ($addrobj, $addrstr) = @_;

   print "$addrstr\n";
}
[download]

use strict; 

my $type  = shift || die "usage: filetype [directory]\n"; 
my $dir   = shift || ""; 
my $mail  = qr{\W*(\.*(?:\w+|-)+\.*\@\.*(?:\w+|-)+(?:\.\w+)+)\W*}; 
my @files = glob("$dir\*.$type"); 
my $mails; 

my $s_time = time; 

for( @files ){ 
    open FH, "$_" or die "can't open $_\n"; 
    my @cont = <FH>; 
    close FH; 
    for( @cont ){ 
        if( /$mail/go ){ 
            $mails->{$1} or $mails->{$1} = 1 
        } 
    } 
} 
     
my $e_time = time; 

if( keys %$mails ){ 
    print "Total time: ", $e_time - $s_time, "\n"; 
    print "Total email addresses: ", scalar keys %$mails, "\n\n"; 
    print "$_\n" for keys %$mails; 
     
}else{ 
    print "No email address found\n" 
}
[download]

all email addresses will be formatted like so.
<smtp:"emailaddress">
could be something.something.something@something.something.something.com
but it wil always be in the brackets with smtp: in it.

my $text = '<smtp:something.something.something@something.something.so
+mething.com>';
my @addresses = $text =~ m!<smtp:(.*@.*)>!g;
print "$_\n" foreach @addresses;
[download]

But i still prefer my Email::Find solution; then you will be safe! <edit>miss-spelling fixed</edit>

It does not matter - this regular expression takes care:


$mail_reg  = qr{\W*(\.*(?:\w+|-)+(?:\.\w+|-)*\@\.*(?:\w+|-)+(?:\.\w+)+
+)\W*};
$mail_1    = '<smtp:"email.address@something.something.something.com">
+';
$mail_2    = '<smtp:emailaddress@something.something.something.com>';

$mail_1 =~ m#$mail_reg# and print $1, $/;
$mail_2 =~ m#$mail_reg# and print $1, $/;

# which outputs:
# email.address@something.something.something.com
# emailaddress@something.something.something.com
[download]

Well, you could scan over the file with a regex:

use strict;
use warnings;

open F, 'file' or die $!;
undef $\; # Enable slurp mode
$_ = <F>;
close F;

print "$1\n" while /([\w.-]+\@[\w.-]+)/g;
[download]

But there are many ways to do this.

Update:Fixed my most glaring use strings; error. -- Ted, sitting here with egg on his face! :-)

/([\w.-]+\@[\w.-]+)/
[download]

This will miss a great many email addresses. You should read a copy of rfc822 some day soon.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

which strings module should i use?