该脚本用于计算腾讯MV前100页的实时点击量:
[root@dou ~]# cat tengxun.pl
#!/usr/bin/perl -w
# This script is used to count the numbers of page views of tengxun's yinyue MV item.
use strict;
use LWP::Simple;
use Encode;
my $num;
my $total;
my $filetmp = "tmpfile";
my @nums = (0..99);
my @firstnums = (0..9) x 10;
my $firstnum = 0;
foreach my $nums (@nums) {
??????? my $url = "http://v.qq.com/mvlist/$firstnums[$firstnum]/22_-1_-1_-1_-1_1_$nums_0_28.html"; ??????? my $file = "output"; ??????? open (my $out,'>',"$file") or die "can't open file $file: $!n"; ??????? my $contents = get($url); ??????? $contents = encode_utf8($contents); ??????? print $out $contents; ??????? close $out; ??????? open (my $in,'<',"$file") or die "can't open file $file: $!n"; ??????? while (<$in>) { ??????????????? next unless /_total_view/; ??????????????? /.*"_total_view">(d+)</span>.*/; ??????????????? $num = $1; ??????????????? open (my $tmpfile,'>>',"$filetmp") or die "can't open file $filetmp: $!n"; ??????????????? print $tmpfile "$numn"; ??????????????? $total += $num; ??????? } ??????? $firstnum += 1; ??????? close $in; } print "$totaln";