|
|
|
perl_baidu
Snippet Menu
1
Wed. Mar. 10th, 2010 5:23 AM
Use this script gain baidu.com's emails.
#!/usr/bin/perl
use strict ;
use LWP ;
use LWP::Simple;
my @arr = grep {0==$_%30} (0 .. 4680) ;
#print @arr ;
foreach (@arr) {
#本脚本以获取photoshop吧的email为例
my $url = "http://tieba.baidu.com/f?z=509692877&ct=335544320&lm=0&sc=0&rn=30&tn=baiduPostBrowser&word=photoshop&pn=$_";
my $content = get $url;
die "Couldn't get $url" unless defined $content;
#email的正则表达式
while( $content =~ m/([_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,3})/ig ) {
print "$1 ;" . "n" ;
}
}
katy long
Comments
Voting
Votes Up
Votes Down
There are currently no comments for this snippet.