GoFuckYourself.com - Adult Webmaster Forum - View Single Post

Angry Jew Cat - Banned for Life · 03-17-2009, 12:50 AM

Perl allows you to be one lazy ass coder. Jump on CPAN and install the Net::Scan::Extract module

Code:

use Net::Scan::Extract qw( :all );

my @emails = Extract_Email($source);
print "$_\n" for @emails;

fetch the source code of the page in question, then scan it using that code. done and done.

03-17-2009, 12:50 AM
Angry Jew Cat - Banned for Life (felis madjewicus) Industry Role: Join Date: Jul 2006 Location: In Mom & Dad's Basement Posts: 20,368	Perl allows you to be one lazy ass coder. Jump on CPAN and install the Net::Scan::Extract module Code: use Net::Scan::Extract qw( :all ); my @emails = Extract_Email($source); print "$_\n" for @emails; fetch the source code of the page in question, then scan it using that code. done and done.