perl LWP::Simple分析土豆视频点击量
#!/usr/bin/perl -w# This script is used to count the numbers of page views of tudou's yinyue item.
use strict;
use LWP::Simple;
use Encode;
my $num;
my $total;
my @nums = (1..50);
foreach my $num (@nums) {
my $url = "http://music.tudou.com/labeltop/zcakqzfjz19zdwyq_s0p$num.html";
my $file = "output";
open (my $out,'>',"$file");
my $contents = get($url);
$contents = encode_utf8($contents);
print $out $contents;
close $out;
open (my $in,'
页:
[1]