请教LWP问题

demonlj

页面是http://www.baitianshi.com/home/d ... ument&ac=putong
我通过想通过perl的LWP在终端发布信息，用post
页面中只有3个元素是必须的，ctitle, periodicals及fen
我也都赋值了
76       %content=(
77         'ctitle'=>$arr_ris[$i][2]."test",
78         'periodicals'=>$arr_ris[$i][3]."tesT",
79         'fen'=>$PAPER_TYPE,
80         'radiobutton'=>2,
81         'src'=>[$src],
82         'submit'=>'下一步'
83       );
84       $res=$ua->post(
85         $URL,
86         Content_Type => 'form-data',
87         %content
88       );

其中src是需要上传的文件，submit是因为discuz喜欢用check

可是这么递交上去，却不成功。我分析了其中的submit，用到一个JavaScript函数checksub，可惜我怎么也找不到这个函数在哪，所以也无从分析

我用类似的语句post了这个页面http://www.baitianshi.com/home/d ... ument&ac=demand，可以成功，但是参数的赋值都消失了。全部变成“null”，我猜想可能这个页面的response没有check机制

请大家帮忙分析下

demonlj

我抓包分析的结果，与我预测的没有差别。还是那几个参数。
http://www.baitianshi.com/home/d ... c=putong&op=add



POST /home/document.php?do=document&ac=putong&op=add HTTP/1.1

Host: www.baitianshi.com

User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100402 Namoroka/3.6.3 (tete009 SSE2 PGO)

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: en-us,en;q=0.5

Accept-Encoding: gzip,deflate

Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

Keep-Alive: 115

Connection: keep-alive

Referer: http://www.baitianshi.com/home/d ... ument&ac=putong

Cookie: uchome_loginuser=jason.lin03%40gmail.com; DKb_cookietime=2592000; supe_cookietime=2592000; read_feed_ids=2218%2C1845; DKb_loginuser=xxxxxxxxxxx; DKb_activationauth=d168Y0dtCWyzXaiym%2F9QdQB3B%2BBZaTcHcWtuRBOKVLiF8W0t%2BIMLURgJVNQ0NOkjBwU; supe_auth=fa37nyobYk4lCCUSFdbc4lhXo%2B1D7bxXkPmLMHv8olTc5EvJJeRv5wFmlj2c1i8PT1S7t0XqTMwSogplKYebWQ; uchome_auth=7154Y9TXi6dBv4qaElXa5A3uxoXrZVAfBUgKDuEkm%2FDkRmfkhUOMbS%2F3M6hrqItOV0hltm8deP9nwdF6BR6QDw; EDiaryEditor_RSave=true; uchome_viewuids=57_47; PHPSESSID=297734fee5609323cdd8b56695fa418b; uchome_synfriend=1

Content-Type: multipart/form-data; boundary=---------------------------60211166214721

Content-Length: 288220

-----------------------------60211166214721

Content-Disposition: form-data; name="ctitle"



镁钙合金的细胞毒性研究

-----------------------------60211166214721

Content-Disposition: form-data; name="author"





-----------------------------60211166214721

Content-Disposition: form-data; name="address"





-----------------------------60211166214721

Content-Disposition: form-data; name="periodicals"



chinese journal of bone and joint injury

-----------------------------60211166214721

Content-Disposition: form-data; name="page"





-----------------------------60211166214721

Content-Disposition: form-data; name="if"





-----------------------------60211166214721

Content-Disposition: form-data; name="fen"



115

-----------------------------60211166214721

Content-Disposition: form-data; name="message"





-----------------------------60211166214721

Content-Disposition: form-data; name="inputkey"





-----------------------------60211166214721

Content-Disposition: form-data; name="radiobutton"



2

-----------------------------60211166214721

demonlj

求高手赐教啊！