討論區快速選單
知識庫快速選單
討論區最近新進100則主題 政府補助!學嵌入式+物聯網 軟體開發過程中有哪些資安漏洞?
[ 回上頁 ] [ 討論區發言規則 ]
WWW::Mechanize 使用問題
更改我的閱讀文章字型大小
作者 : abcdefg0634(abcdefg0634)
[ 貼文 27 | 人氣 0 | 評價 10 | 評價/貼文 0.37 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2018/2/13 上午 08:02:10
小弟用 WWW::Mechanize access 網頁 目標如下
1. 進到2個frame 的url 2. 在frame1 填入資料submit 3. 回應資料在frame2 並下載
小弟 用follow_link 到第一個link後 執行完 第1,2步後 不知道如何link到frame 2

url 網頁結構

https://imgur.com/a/eBmBG

html如下

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>WWW</title>
<style>
body { font-family: Verdana; background-color:"#F0F0F0"; }
a { color:blue; text-decoration:none; }
a:hover { color:red; }
.cbutton { font-size:12pt; font-weight=bold; color:black; }
.ctext { font-family: Verdana; font-size: 10pt; }
.clabel { font-family: Verdana; font-size: 10pt; }
</style>
</head>

<frameset rows="40%,*">
  <frame name="rtop" src="123.asp" target="rbottom">
  <frame name="rbottom" src="444.html" scrolling="auto">

  <noframes>
  <body>
  <p>123</p>
  </body>
  </noframes>

</frameset>
</html>


程式碼如下

#!c:\\perl\\bin

 use strict;

 use WWW::Mechanize;

 my $url = "myurl";
 my $Part = 'mykey';
 my $outfile1 = "out1.html";

 my $mech = WWW::Mechanize->new();

 $mech->get($url);
 $mech->follow_link(tag => "frame"); # open first frame in document
 $mech->field (' => $Part);
 $mech->submit();
 $mech->follow_link(tag => "frame"); # open 2nd frame in document, where it hangs

 my $output_page = $mech->content();

 open(OUTFILE, ">$outfile1");
 print OUTFILE "$output_page";
 close(OUTFILE);
 板主 : 徵求中
 > Perl - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Perl - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Perl
1 HKLN.net 2850 
2 Benson 480 
3 Jsn 470 
4 pail 240 
5 可愛處理器 170 
6 菜鳥小德 160 
7 mrhsuap 160 
8 kalua 120 
9 110 
10 jackkon 100 
Perl
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.203125