Perlを使って２ちゃんねるにHello Worldを書き込む

Perlを使って２ちゃんねるにHello Worldを書き込むat TECH

Perlを使って２ちゃんねるにHello Worldを書き込む - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

193:縺ｯ繧阪�ｼ
 11/05/18 10:17:24.74 
Hello World

194:縺ｯ繧阪�ｼ
 11/05/18 10:20:30.79 
Hello World

195:縺ｯ繧阪�ｼ
 11/05/18 10:21:20.63 
Hello World

196:縺ｯ繧阪�ｼ
 11/05/18 10:21:46.95 
縺薙ｓ縺ｩ縺薙◎

197: 忍法帖【Lv=2,xxxP】 
 11/06/05 20:10:45.16 
だめだな。

198:デフォルトの名無しさん
 11/06/29 19:43:58.10 
test

199:デフォルトの名無しさん
 11/06/29 19:49:13.06 
48656C6C6F20576F726C64

200:デフォルトの名無しさん
 11/11/20 14:26:58.36 
？

201:デフォルトの名無しさん
 11/12/16 16:50:48.08 
LWPを使っての書き込みで詰まってます。 
use utf8; use LWP; use Encode...; 
my $ua = LWP::UserAgent->new(agent => "Monazilla/1.00 hoshu-bot.pl/$VERSION"); 
$ua->default_header(Referer => "http://$c->{host}.2ch.net/$c->{board}/"); 
 
sub sjis { encode('cp932', $_[0]) } 
 
    my $res = $ua->post("http://" . $c->{host} . ".2ch.net/test/bbs.cgi?guid=ON", 
        [ 
# パラメタ省略 
            submit=> sjis('書き込む'), 
            MESSAGE=> sjis($message), 
        ], 
        Content_Type => "application/x-www-form-urlencoded; charset=Shift_JIS", 
    ); 
 
エンコードしてるはずなんですけどねえ。ちなみに全角2文字が8バイトで 
出ます。考えられるのは、エンコードに失敗してるか、sjisをさらに 
Unicodeにデコードしてそれを出してるかな気がするんですが。

次ページ