获取cctv flash页的视频m3u8


use strict; use warnings; use LWP::Simple;
# cctv flash页视频下载
# 'http://tv.cctv.com/2018/04/01/VIDEYI7D9VFtnbOjIeIP4Pcn180401.shtml'

sub get_cctv{
# 从cctv网页链接获取m3u8真实链接
my $link = shift;
my $doc = LWP::Simple::get($link);
$doc =~ m/var\sguid\s=\s".*?"/;
my $guid = substr($&, 12, rindex($&, '"')-12);
my $json = LWP::Simple::get('http://vdn.apps.cntv.cn/api/getHttpVideoInfo.do?pid='.$guid);
my $ia = index($json, '"hls_url":"');
my $ib = index($json, '","asp_error_code');
my $hls = substr($json, $ia+11, $ib-$ia-11);
$hls =~ s/main/1200/;
return $hls;
}

print get_cctv('http://tv.cctv.com/2018/04/01/VIDEYI7D9VFtnbOjIeIP4Pcn180401.shtml');
--
修改:crella126 FROM 124.240.86.*
FROM 124.240.86.*