- 論壇徽章:
- 0
|
use utf8;
use WWW::Mechanize;
use Encode;
$url="http://bbs.sh.libaclub.com/message.php?action=write";
$mech=WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');
$mech->add_header(Referer=>'http://xxx/message.php');
$mech->add_header(Accept-Charset=>'ISO-8859-1,utf-8;q=0.7,*;q=0.7');
$mech->add_header(Accept-Language=>'en-us,en;q=0.5');
$mech->add_header(Cookie=>'sxxxxxxx7516; __utmc=87665927; __utmz=87665927.1283527516.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); mytopictabs=0; PHPSESSID=0d0cf34ebcdeec3936cd1831ca68b6ca');
$mech->get($url);
$mech->form_name("form1");
$mech->field("receiverName","xxx");
my $subject="測試";
$subject=encode('gbk',$subject);
$mech->field("topic",$subject);
my $content="明月幾時有,把酒問清天,不知天上宮闕,今夕是何年!";
$content=encode('gbk',$content);
$mech->field("content",$content);
$mech->submit();
網(wǎng)頁編碼為gbk,我在提交之前也轉(zhuǎn)為gbk編碼了,但是提交后,subject標題字段和content內(nèi)容字段都顯示為亂碼,在cpan上查了也沒看到相應(yīng)的解決辦法,只好來這里求救兵了,有知道的請出手,謝謝了! |
|