请问可以用Perl下载javascript链接吗？

WSNlv250

就是这页面上几个下载链接：
http://www.namejet.com/Pages/Downloads.aspx

真头疼啊，不能直接拖到了
求教高手，谢谢 .^__^.

sjdy521

点击链接，js会生成一个会post请求到服务器，你用perl可以模拟这个http请求就是了。不过你需要知道发请求的规则，这个要分析源代码，比较耗费时间，

WSNlv250

尽管看起来就是这样固定链接和位置这么简单，但用perl来仍旧需要很多分析处理吗？

ziyunfei

就一个post 很简单

ziyunfei

1. use LWP::UserAgent;
   
2. use URI::Escape;
   
3. my $ua = LWP::UserAgent->new;
   
4. my $downid = 'ctl00$ContentPlaceHolder1$hlPreRelease1';
   
5. my $response=$ua->get( "http://www.namejet.com/Pages/Downloads.aspx");
   
6. my ($VIEWSTATE) = $response->decoded_content =~ /(?<=_VIEWSTATE" value=")(.+?)(?=")/;
   
7. my ($EVENTVALIDATION) = uri_escape($response->decoded_content =~ /(?<=__EVENTVALIDATION" value=")(.+?)(?=")/);
   
8. my $response=$ua->post( "http://www.namejet.com/Pages/Downloads.aspx",Content => "__EVENTTARGET=$downid&__VIEWSTATE=$VIEWSTATE&__EVENTVALIDATION=$EVENTVALIDATION");
   
9. print $response->decoded_content;

复制代码

WSNlv250

谢谢ls高手
如果javascript后面网站会自动更换的话，还有办法吗
好像perl 有个 Javascript Module， 不知能否利用它来做到直接模拟点击呢？

WSNlv250

另外，请问这样POST后能自动检测到下载的文件名吗

ziyunfei

1. use LWP::UserAgent;
   
2. use URI::Escape;
   
3. my $ua = LWP::UserAgent->new;
   
4. my $html=$ua->get( "http://www.namejet.com/Pages/Downloads.aspx")->decoded_content;
   
5. my ($VIEWSTATE) = $html =~ /(?<=_VIEWSTATE" value=")(.+?)(?=")/;
   
6. my ($EVENTVALIDATION) = uri_escape($html =~ /(?<=__EVENTVALIDATION" value=")(.+?)(?=")/);
   
7. while($html =~ /(?<=__doPostBack\(&#39;)(.+?)(?=&#39;,&#39;&#39;\)">)/g){
   
8.         my $downloadid=$&;
   
9.         my $response=$ua->post( "http://www.namejet.com/Pages/Downloads.aspx",Content => "__EVENTTARGET=$downloadid&__VIEWSTATE=$VIEWSTATE&__EVENTVALIDATION=$EVENTVALIDATION");
   
10.         my ($downloadname) = $response->header("Content-disposition")=~/(?<=filename=)(.+)/;
    
11.         open FH, ">$downloadname";
    
12.         print FH $response->decoded_content;
    
13. }
    

复制代码

WSNlv250

厉害啊，谢谢高手

sjdy521

回复 5# ziyunfei


    哇，够激情~