[学习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 = '';
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");
}
|
阅读(596) | 评论(0) | 转发(0) |