Re: extract email addresses

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! :-)

Ted Young

($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)

Comment on Re: extract email addresses Select or Download Code

Replies are listed 'Best First'.
Re^2: extract email addresses by merlyn (Sage) on Feb 19, 2005 at 01:13 UTC
`/([\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.	[reply] [d/l]
Re^2: extract email addresses by johnajb (Novice) on Feb 19, 2005 at 00:52 UTC
which strings module should i use?	[reply]

In Section Seekers of Perl Wisdom