#!/usr/bin/perl -w
# Gist: https://gist.github.com/2928006
use
LWP::
Simple
;
my
$url
=
$ARGV
[
0
];
my
$filename
=
$ARGV
[
1
];
my
$content
=
get
(
$url
)
or
die
"Couldn't get $url"
;
#$content =~ s#^.*?(<div.*?</div>).*$##m;
if
(
$content
=~
m
#.*(<div id="enText" style="display:block">.*?</div>).*#sg)
{
$text
=
$1
;
# 打开模板文件
open
(
TEMPLATE
,
"template.html"
)
or
die
" Couldn't open template.html for writing: $! "
;
# 读取模板文件
$/
=
"</html>"
;
# 读到</html>结束
my
$reads
=
<TEMPLATE>
;
# 替换听力文本
$reads
=~
s/==TEXT_CONTENT==/$text/gix
;
#print $reads;
# 输出html文件
open
(
OUT
,
" > $filename "
)
or
die
" Couldn't open $filename for writing: $! "
;
print
OUT
$reads
;
# 下载听力
my
$baseUrl
=
$url
;
$baseUrl
=~
s/(.*)(//
.*
/.html)/
$1
/
g
;
my
$reslink
=
$content
;
$reslink
=~
s/.*<a href="(.*?)" title="进入下载资料页面">下载听力<//
a
>.*
/$1/sg
;
$reslink
=
$baseUrl
.
"/"
.
$reslink
;
print
"/nreslink:"
,
$reslink
,
"/n"
;
my
$respage
=
get
(
$reslink
)
or
die
"Couldn't get $reslink"
;
my
$mp3link
=
$respage
;
print
$mp3link
;
#$mp3link =~ s#.*<a href="(.*?)" target="_blank"><img src="/images/downloadurl1/.jpg"></a>.*#$1#sg;
#if ($mp3link =~ m/.*<a href="(.*?)" target="_blank"><img src="//images//downloadurl1/.jpg"><//a>.*/sg) {
# 没登录，下载链接获取不到，怎么办？
if
(
$mp3link
=~
m/downloadurl1/sg
)
{
print
"匹配/n"
;
}
else
{
print
"不匹配/n"
;
}
#<a href="(.*?)" target="_blank"><img src="/images/downloadurl1.jpg"></a>
print
"/ndownload:"
.
$reslink
.
"/n"
;
}
else
{
print
"不匹配/n"
;
}
