topic Re: I need a perl or php script to extract all mail addresses in Operating System - Linux

I need a perl or php script to extract all mail addresses

'chris' — Sun, 29 May 2005 10:38:35 GMT

hi

I need a perl or php script to extract all mail addresses from a homepage, but I have to know which mail address is on which HTML site or on which perl or php site.
I can run this perl script on the webserver machine locally.

kind regards
chris

Re: I need a perl or php script to extract all mail addresses

Steven E. Protter — Sun, 29 May 2005 13:07:30 GMT

How about a pre-processor script.

Try this on for size.

wget http://www.mysite.com/index.html

# Replace it with a local file, it doesn't matter.

cat index.html | grep "@" > secondary file.

Nnow you have extracted every line with an @ into a file.

You are now quite close.

SEP

Re: I need a perl or php script to extract all mail addresses

Gopi Sekar — Mon, 30 May 2005 04:16:45 GMT

see whether this is of use to you.

@Files_List contains list of files to be scanned through. you can also use File::Find module to traverse set of directories and get list of files.

#!/usr/bin/perl

foreach $file(@Files_List)
{
open(FH, "$file") || die "Cant open file";

while()
{
chomp($_);
#Following regular expression hopefully matches most of email id. only condition being that before the email id there should be atleast one space. it can match email id's containing alphanumeric, -, _ and .

if ($_ =~ m/\s*([-_.\w]+@[-_.\w]+)\s*.*$/g)
{
print ("->$file<- contains mail id ->$1<-\n");
}
}
}

Regards,
Gopi

Re: I need a perl or php script to extract all mail addresses

Gopi Sekar — Tue, 31 May 2005 06:29:39 GMT

whether the above script is of help to you?

Re: I need a perl or php script to extract all mail addresses

'chris' — Tue, 31 May 2005 07:12:42 GMT

thanks for the scripts !

Sorry I didn't check yet, have a lot of work now,
but I'll do next week and I'll report.

Re: I need a perl or php script to extract all mail addresses

renarios — Tue, 31 May 2005 07:16:32 GMT

Hi Chris,

here's a schell script which does the same (and some more). It's a piece from a script I use to send people "personal" emails.

The file it reads is called "list" change it to what you want.

Hope it helps.

Cheerio,

Renarios

Re: I need a perl or php script to extract all mail addresses

'chris' — Tue, 31 May 2005 08:49:54 GMT

thanks !