use Data::Dumper;
use LWP::Simple;
use LWP::UserAgent;
my $a =0;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common;
use Socket;
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1");
#while($a++<10)
for($a=1;$a<10;$a++)
{
my $jutaobao_url ="http://ju.taobao.com/tg/today_items.htm?page=$a";
my $req = new HTTP::Request GET =>$jutaobao_url;
my $res = $ua->request($req);
my $content = $res->content;
#print $content;
if ( defined $content ) {
@data = $content;
foreach (@data) {
while ( $content =~
m/\<h3\>\<a\starget=\"_blank\"\stitle=\"(.*?)\"\shref=\"(.*?)\">【.*?\<\/a\>\<\/h3\>/g
)
{
print $1;
print "\n";
}
}
}
}
聚淘宝查询
最新推荐文章于 2023-09-04 18:13:02 发布