perl学习: EPG之DLTV

#!/usr/bin/perl

use strict;
use warnings;
use LWP;
use LWP::UserAgent;
use LWP::Simple;
use HTML::Tree;
use URI::Escape;
use URI::QueryParam;
use URI;
use Time::localtime;
use Time::Local;

my $root = 'www.dltv.cn';
my $from;
my $to;
my $curdate;
my $querydate;
my $uri = URI->new('http://vod.dltv.cn:8080/cms/web/scms/tvProgram/show.jsp');
my $localfile;
my $locdir ;
my $tm;
my $tvid ;

$from = timelocal( 0, 0, 0, 5, 7, 2009 - 1900 );
$to = timelocal( 0, 0, 0, 10, 7, 2009 - 1900 );

mkdir($root);
for ( $tvid = 100 ; $tvid <= 106 ; $tvid++ )
{
    $locdir = sprintf("%s/%d/",$root,$tvid);
    mkdir($locdir);
    $curdate = $from;
    while ( $curdate le $to )
    {
        $tm = localtime($curdate);
        $querydate = sprintf("year=%04d&month=%d&day=%d&tvId=%d",$tm->year +1900,$tm->mon,$tm->mday,$tvid);
        $localfile = sprintf("%s/%04d%02d%02d.html",$locdir, $tm->year +1900,$tm->mon+1,$tm->mday);
     $uri->query($querydate);
     getstore($uri->as_string, $localfile);
                
        $curdate += 24 * 3600;

    }
}