perl学习:EPG 之CCTV

时间：2009-07-30 来源：n7611

[学习perl 练手用,请勿用于商业用途,尊重别人的劳动成果,访问一下提供资料的网站,最好看一下它的广告]
取得电子节目单

#!/usr/bin/perl

use warnings;
use strict;

use Archive::Zip qw( :ERROR_CODES );
use Encode;
use LWP::Simple;
use HTML::Tree;
use URI;

my $epgurl = 'http://www.cctv.com/download/showtime.zip';
my $storzip = 'showtime.zip';

getstore($epgurl, $storzip);
my $zip = Archive::Zip->new();

$zip->read($storzip) == AZ_OK or die "read error\n";
my @members = $zip->memberNames();
my $filename;
foreach my $element(@members)
{
  $filename = encode_utf8(decode(gb2312=>$element));
  print "$filename\n";
  $zip->extractMember($element,"cctv\/$filename");
}