Thursday, February 21, 2008

Email Xtractor

Email Xtractor
Email Xtractor

LANGUAGE USED = (PERL)

CODE
#!/usr/bin/perl -w
#Email Xtractor
#illuz1oN[at]hotmail[dot]co[dot]uk
my $emailz = $ARGV[1];
my $output = $ARGV[2];
if(@ARGV < 2){ usage(); }
#Take emails, and place into an array!
open(EMAIL, $emailz);
if($emailz =~m/(*@*.net|*@*.com|*@*.co.uk)/){
my @em=;
foreach my $chck(@em){
print "Email $. : $chck Saved\n";
while(){
open(FI, $output){
print "Email Extractor - illuz1oN\n\n";
print "$. : $chck\n";
print "Emails Saved to $output\n";
close(FI);
}
}
}
} else {
print "Emailz Not Valid!\n";
exit;}
close(EMAIL);
sub usage {
print qq[-==+-----------------------------------+==-
-==+ Email Extractor +==-
-==+ Usage: ext.pl [file.*] [output.*] +==-
-==+ Xample: ext.pl email.txt ext.txt +==-
-==+-----------------------------------+==-];
exit;
}