- Perlについての質問箱 63箱目
742 ：デフォルトの名無しさん[sage]：2014/10/19(日) 16:22:37.87 ID:4R/Z4WcN - ありがとうございます
実は２ｃｈにニュースを取得してきて特定のスレに書き込むスクリプトをつくろうとしているのです
そこでまず試験的にtxtファイルに書きだそうとしていました
書き出すところまではうまく行ったのですが、２ｃｈにうまく書き込むことができません
これのどこがいけないか教えていただくことはできないでしょうか
http://pastebin.com/37XH1fUW
一応問題になっているところは
$news_1にニュースを取得して分割して格納する
$news_1 =~ s/([^w ])/'%'.unpack('H2', $1)/eg;
$news_1 =~ tr/ /+/;
my $ua = LWP::UserAgent->new;
my $res = $ua->post(
"http://書き込みたいところのurl/test/bbs.cgi?guid=ON+HTTP/1.1",
{
"bbs" => "板名",
"key" => "書き込みたいスレのスレキー",
"time" => "1",
"submit" => '%8f%91%82%ab%8d%9e%82%de',
"FROM" => 'name',
"mail" => 'sage',
"MESSAGE" => "$news_1"
},
"Host" => "書き込みたい板のurl",
"Content-length" => "（これをどうすれば求められるかわからない）",
"Referer" => "書き込みたい板のurl",
"User-Agent" => "Monazilla/1.00",
"Connection" => "close"
);
print $res->content;
}
よろしくお願いいたします
あと、うまく一部の日本語がうまくurlエンコードされていないようです、それの原因もよろしかったら教えていただけないでしょうか
|