rgyyhawu的部落格

將mail帳號收集成一個檔案
執行程式

use Email::Valid;

my $fname=$ARGV[0];

my @maillist;
open(IN, $fname)or die;
while( ){
chomp;
push(@maillist, $_);
}
close(IN);

my $vstart= $ARGV[1] || 0;
my $vend=$ARGV[2] || $#maillist;

for($i=$vstart; $i my $str=$maillist[$i];
#print $i,'/',$vend, ' ', $str, "\n";
if(Email::Valid->address($str)){
next if($str =~ /\.hk/);
next if($str =~ /qq/);
next if($str =~ /^_/);
next if($str !~ /[com|net|edu|tw|gov|org]/i);
my($a, $b)=split(/@/, $str);
if(length($a)>4){
print $str, "\n";
}
}
}