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

1 名前：デフォルトの名無しさん [2007/07/15(日) 16:16:50 ] 俺、がんばる。みてて。 45 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 16:25:06 ] はいはい、またーりいくよ。 テスト用に、サーバーに送信したデータをそのまま表示するだけのphpコード ちゃんと送られているかこれで確認！ <?php header("Content-Type: text/plain"); print "[REQUEST]\n"; print_r(apache_request_headers()); print "[SERVER]\n"; print_r($_SERVER); print "[GET]\n"; print_r($_GET); print "[POST]\n"; print_r($_POST); print "[COOKIE]\n"; print_r($_COOKIE); print "[FILES]\n"; print_r($_FILES); ?> IEはダウンロードしやがるぜ。けっ 46 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 20:07:51 ] さあて、いよいよpostだ。実際に動かすときは自分のサーバーに置いた スクリプト（>>45でいい)に向けてpostするように。 use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1)"); $req = HTTP::Request->new(POST => 'www.example.com/test.php?getdata=gettest'); $req->header( 'Accept' => '*/*', 'Accept-Language' => 'ja-JP,en-US;q=0.5', 'Referer' => 'www.example.com/', ); $req->content_type('application/x-www-form-urlencoded'); $req->content('postdata=posttest'); print $ua->request($req)->as_string; 47 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 21:23:57 ] Hello World 48 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 21:31:30 ] なんか資料見つけたので追加 age.s22.xrea.com/talk2ch/ 49 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:12:37 ] Hello World 2 50 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:22:18 ] うーん。postするときのtimeの数字ってなんだろう？ 日付に直すと Sun, 02 Jan 2005 17:55:08 GMT なんだが、 どこから取得すればいいのだ？ htmlのフォームから取得できるのはわかるが・・・ 51 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:37:29 ] Hello World 3 52 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:38:34 ] Hello World 3 53 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:40:05 ] Hello World 3 54 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:41:19 ] Hello World 3 55 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 22:42:24 ] よくわからんが、現在時刻マイナス？ で書き込めるようだ。 56 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 23:03:50 ] ここでテストするのはやめれ。運営にチクるぜー？ 57 名前：デフォルトの名無しさん mailto:sage [2007/07/17(火) 00:09:52 ] 通報しますた 58 名前：デフォルトの名無しさん mailto:sage [2007/07/17(火) 01:46:58 ] あぼーんだらけの某板に書いてみるとか 59 名前：デフォルトの名無しさん mailto:sage [2007/07/17(火) 08:54:34 ] 最悪板あたりでやればいいのでは 60 名前：デフォルトの名無しさん mailto:sage [2007/07/26(木) 18:14:07 ] 結局どこいったん＞ 61 名前：デフォルトの名無しさん [2007/07/27(金) 01:20:27 ] >>60 書き込めるようになって、飽きました。 62 名前：デフォルトの名無しさん mailto:sage [2007/07/27(金) 01:49:01 ] 他の鯖でも試してみた？ 63 名前：デフォルトの名無しさん mailto:sage [2007/07/27(金) 14:21:01 ] Hello, World 64 名前：ヒッキーの達人 ◆MEIDO...W. [2007/07/29(日) 03:50:50 ] 僕も最近Perlを始めたので hello, world を作ってみました #!/usr/bin/perl use strict; my $hello = "hello, world"; my $tmp = './hello.world'; open OUT, "> $tmp" or die "$!"; flock OUT, 2; print OUT $hello; close OUT; open IN, $tmp or die "$!"; flock IN, 2; my @in = <IN>; close IN; unlink $tmp; foreach(@in){ 　s/$hello/herro, world/i; } my $res = `ping -c 4 www.google.com`; undef $res; print $hello; my @n = qq|\n|; foreach(@n){ 　print; } 65 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 20:40:58 ] Unrecognized character \x81 at C:/Users/Dai/workspace/PerlTest1/MainTest2.pl line 19. 66 名前：デフォルトの名無しさん [2007/07/29(日) 20:52:03 ] ヒント：全角スペース 67 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 00:57:04 ] このスレは車輪の再発明をするスレのようですね Age2ch Part14 pc11.2ch.net/test/read.cgi/software/1118219419/l50 68 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 14:36:00 ] みんな車輪の再開発をして技術を身に付けるんだよ。 弟子は師匠の筆の跡を盗むもんだ。 69 名前：デフォルトの名無しさん mailto:sage [2007/10/04(木) 13:01:14 ] perlだけでなくrubyやpythonその他 いろいろな言語でこれをするならどれが一番きれいだと思う? 70 名前：デフォルトの名無しさん mailto:sage [2007/10/05(金) 09:53:41 ] elisp 71 名前：デフォルトの名無しさん [2008/01/10(木) 11:13:45 ] >>22 これってどうやって調べたん？ 72 名前：デフォルトの名無しさん mailto:sage [2008/01/10(木) 12:04:21 ] hello world 73 名前：デフォルトの名無しさん mailto:sage [2008/01/10(木) 23:37:44 ] pc11.2ch.net/test/read.cgi/unix/1019380983/ 74 名前：デフォルトの名無しさん mailto:sage [2008/01/11(金) 09:22:43 ] pythonだったら2ch書込用ライブラリ作ったけど 75 名前：デフォルトの名無しさん mailto:sage [2008/01/11(金) 11:51:26 ] omaeka 76 名前：デフォルトの名無しさん mailto:1 [2008/01/15(火) 05:41:47 ] うんこ 77 名前：デフォルトの名無しさん mailto:sage [2008/01/15(火) 05:42:50 ] cgiからも書き込めるようにしてみた。 だからアク禁くらってもレンタルサーバーにcgiぶっこめばいくらでも書き込める。 78 名前：デフォルトの名無しさん mailto:1 [2008/01/15(火) 05:45:20 ] うんこ 79 名前：デフォルトの名無しさん mailto:1 [2008/01/15(火) 05:46:25 ] うんこ 80 名前：デフォルトの名無しさん mailto:sage [2008/01/28(月) 11:56:22 ] てすと 81 名前：80 mailto:sage [2008/01/28(月) 12:02:46 ] すまん 誤爆した。 82 名前：80 mailto:sage [2008/01/28(月) 12:04:16 ] すまん 誤爆した。 83 名前：80 mailto:sage [2008/01/28(月) 12:09:40 ] すまん 誤爆した。 84 名前：デフォルトの名無しさん mailto:sage [2008/01/31(木) 05:50:43 ] てすと 85 名前：デフォルトの名無しさん mailto:sage [2008/01/31(木) 05:53:43 ] てすと 86 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 02:51:43 ] ActivePerl-5.10.0.1002-MSWin32-x86-283697.msi を保存して ダブルクイックすると 『インストール　パッケージを開くことができませんでした。アプリケーションベンダに問い合わせ、このパッケージが有効なWindowｓインストーラパッケージであることを確認してください。』　　と出るのですが 何が問題あるのでしょうか 87 名前：うっかり八兵衛 mailto:sage [2008/03/19(水) 06:04:17 ] >>86　 インストーラパッケージが壊れていまし。 保存のインスト不良でした 早とちり で、しまったシマッタ！島倉千恵子！ (;^_^A フキフキ 88 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 07:27:01 ] とりあえず乙 89 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 00:38:42 ] >>86 亀レスだがそれはファイルが壊れてるだけ。 俺もこの前WIN再インスコしたときになった。 activeperlのある鯖が不安定っぽいからリジューム機能のついてるツール使ってダウソしたほうがいいよ。 90 名前：デフォルトの名無しさん [2008/05/14(水) 13:50:09 ] test 91 名前：デフォルトの名無しさん [2008/05/16(金) 17:59:54 ] クライアントがクッキーを受け入れているかどうかってどうやって判断しているんでしょうか？ 92 名前：デフォルトの名無しさん [2008/05/16(金) 20:42:21 ] 食わせたクッキーを吐き出させればいいよ。 93 名前：デフォルトの名無しさん [2008/08/22(金) 22:09:35 ] test 94 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 22:10:36 ] wget --referer=pc11.2ch.net --save-cookie=c --load-cookie=c --post-data='hana=mogera&bbs=tech&key=1184483810&time=1&mail=&FROM=&MESSAGE=test' pc11.2ch.net/test/bbs.cgi 95 名前：デフォルトの名無しさん [2008/08/31(日) 11:33:21 ] #!/usr/bin/perl use warnings; use strict; use WWW::Mechanize; my $url = 'pc11.2ch.net/test/read.cgi/tech/1184483810/'; my $mail = 'sage'; my $text = 'Hellow World; my $mech = WWW::Mechanize->new; $mech->agent_alias('Linux Mozilla'); $mech->get($url); $mech->submit_form( form_number => 2, fields=>{ FROM => '', mail => $mail, MESSAGE => $text, }, ); print $mech->content; $mech->submit; print $mech->content; なんで、これでじゃかきこめないわけ? 96 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:18:17 ] hello world 97 名前：デフォルトの名無しさん [2008/09/15(月) 20:22:15 ] ゆきさん、好きだ。 98 名前：デフォルトの名無しさん [2008/10/10(金) 18:19:28 ] そんぽぷへるめ 99 名前：デフォルトの名無しさん [2008/12/07(日) 20:49:28 ] pc11.2ch.net/test/read.cgi/software/1118219419/850 より use utf8; binmode STDOUT => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; use open IO => ":encoding(cp932)"; use Win32::IEAutomation; use Encode; $ie = Win32::IEAutomation->new( visible => 1, maximize => 0); $ie->gotoURL('pc11.2ch.net/test/read.cgi/software/1118219419/l1n'); $ie->getTextBox('name:', 'FROM')->SetValue(encode('cp932', "名無しさん＠お腹すいた") ); $ie->getTextBox('name:', 'mail')->SetValue('sage'); $ie->getTextArea('name:', 'MESSAGE')->SetValue(encode('cp932', ">>845\nソースきぼ〜ん") ) ; $ie->getButton('name:', 'submit')->Click(1) ; sleep(10); $ie->getButton('name:', 'submit')->Click(1) ; # 初回投稿時の確認ウィンドウ用 100 名前：デフォルトの名無しさん mailto:sage [2008/12/10(水) 02:24:59 ] Hellow World 101 名前：デフォルトの名無しさん mailto:sage [2008/12/10(水) 02:28:25 ] test 102 名前：デフォルトの名無しさん mailto:sage [2008/12/10(水) 02:40:04 ] Hellow world 103 名前：デフォルトの名無しさん mailto:sage [2008/12/10(水) 02:44:02 ] Hellow Fuck! 104 名前：名無しさん＠お腹すいた mailto:sage [2008/12/10(水) 02:46:30 ] うんこちんちん 105 名前：hage mailto:sage [2008/12/10(水) 03:14:51 ] Hellow Fuck! 106 名前：hage mailto:sage [2008/12/10(水) 03:26:37 ] Hellow Fuck! 107 名前：hage mailto:sage [2008/12/10(水) 03:34:42 ] Hellow Fuck! 108 名前：test mailto:sage [2008/12/10(水) 03:35:28 ] test 109 名前：hage mailto:sage [2008/12/10(水) 03:36:04 ] Hellow Fuck! 110 名前：hage mailto:sage [2008/12/10(水) 05:40:53 ] Hellow Fuck! 111 名前：デフォルトの名無しさん [2009/01/19(月) 09:19:05 ] じゃあ、PHPで書き込むにはどうしたらいいですか？ 112 名前：デフォルトの名無しさん [2009/01/19(月) 11:23:50 ] >>111 スレ立てました。 PHPを使って２ちゃんねるにHello Worldを書き込む pc11.2ch.net/test/read.cgi/tech/1232331701/l50 113 名前：デフォルトの名無しさん [2009/01/19(月) 14:16:06 ] >>112 おお、ありがとうございます！！ そのやり方も教えて下さい！！ 114 名前：デフォルトの名無しさん [2009/02/08(日) 18:28:52 ] じぐもとらせてください 115 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 22:28:09 ] スレ違い 116 名前：デフォルトの名無しさん mailto:sage [2009/05/31(日) 23:18:29 ] WWW::Mechanize使わずにやろうとしたらどうなるんだろう。 117 名前：デフォルトの名無しさん [2009/06/07(日) 15:00:39 ] Coco豚肉一辛カレー、ガーリックかけたらおいしかったけれど、全部食べきれなかった。 118 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 12:55:52 ] Hallo World! 119 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 19:26:21 ] Hello World! 120 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 19:28:02 ] Hello World! 121 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 19:39:10 ] Hello World! ｱﾋｬ 122 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 19:42:16 ] これならプロバイダ規制受けても書き込みできるな ｲﾔｯﾎｳ 123 名前：デフォルトの名無しさん mailto:sage [2009/07/11(土) 22:47:56 ] helohelo 124 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 20:56:08 ] hello worldｗｗ 125 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 20:58:49 ] hello worldｗｗ 126 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 20:59:30 ] hello worldｗｗ 127 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:00:12 ] hello worldｗｗ 128 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:09:14 ] teest 129 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:12:00 ] test2 130 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:15:49 ] hello world?? 131 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:17:59 ] test 132 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:18:06 ] hello world?? 133 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:23:40 ] てｓｔ 134 名前：デフォルトの名無しさん mailto:sage [2009/07/22(水) 21:43:07 ] てｓｔ 135 名前：デフォルトの名無しさん mailto:sage [2009/07/23(木) 17:33:47 ] test 136 名前：デフォルトの名無しさん mailto:sage [2009/07/23(木) 17:48:11 ] test 137 名前：デフォルトの名無しさん [2009/07/28(火) 22:22:06 ] 姉歯さんのまんこは１３センチ 138 名前：デフォルトの名無しさん [2009/07/29(水) 00:31:09 ] >>> message = ' What's up, Mr?' >>> message 'What's up, Mr? >>> print message Wha's up, Mr? 139 名前：デフォルトの名無しさん [2009/07/29(水) 00:33:05 ] >>> message = ' What's up, Mr?' >>> message 'What's up, Mr?' >>> print message Wha's up, Mr? 140 名前：デフォルトの名無しさん [2009/07/29(水) 00:45:10 ] mit のコンピューター工学見てるひと　いる？ 141 名前：デフォルトの名無しさん [2009/07/29(水) 00:54:46 ] ボクの目標は　いろんなビデイオディスクの場面を　つなげて　いろんな ショートムービー　とか　つくる　ソフトをつくることなんだ それを　発展させて　人工知能系に　つなげる 英国f１とかの大画面モニター　1日中　遊んでるらしいから ジェット旅客機の　飛行中の映画モニターに映す 世界をつなげる　ソフト 世界が一体感をもてる　世界平和に貢献できるようなそんな気がする それと　コンピューター工学を基礎から考えることなんだ。 ぼくは　タイムマシンとかつくって　現在光速で飛行中　自室のコックピットから　書き込んでる　だから　時間はいっぱいあるんだ。　 142 名前：デフォルトの名無しさん [2009/07/31(金) 01:36:37 ] >>140 それがどうした？ 143 名前：デフォルトの名無しさん [2009/10/28(水) 21:54:10 ] まんこ、めぐりあい。そしてかくれんぼ。 144 名前：test mailto:sage [2009/11/05(木) 18:26:43 ] hello world 145 名前：デフォルトの名無しさん mailto:sage [2009/11/05(木) 18:45:29 ] hello world 146 名前：デフォルトの名無しさん mailto:sage [2009/11/05(木) 18:48:07 ] hello world 147 名前：デフォルトの名無しさん mailto:sage [2010/01/05(火) 20:34:24 ] Hellow★World 148 名前：デフォルトの名無しさん mailto:sage [2010/01/05(火) 20:37:01 ] hellow world 149 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 01:23:02 ] tes 150 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 21:57:57 ] テスト 151 名前：デフォルトの名無しさん mailto:sage [2010/03/31(水) 21:14:23 ] ハロー ワーク 152 名前：デフォルトの名無しさん mailto:sage [2010/04/01(木) 14:11:36 ] こんにちは、しごと 153 名前：デフォルトの名無しさん [2010/04/05(月) 11:32:31 ] Hello%202ch%20%21 154 名前：デフォルトの名無しさん [2010/04/05(月) 11:38:09 ] Hello%202ch%20%21 155 名前：デフォルトの名無しさん [2010/04/05(月) 11:41:14 ] Hello%202ch%20%21 156 名前：デフォルトの名無しさん [2010/04/05(月) 11:42:30 ] Hello%202ch%20%21 157 名前：デフォルトの名無しさん mailto:sage [2010/04/05(月) 12:56:54 ] sage 158 名前：デフォルトの名無しさん mailto:sage [2010/04/07(水) 14:39:01 ] Hello World ! 159 名前：デフォルトの名無しさん mailto:sage [2010/04/07(水) 17:06:07 ] Goobye World! 160 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 20:29:40 ] Hello World!!! 161 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 21:16:32 ] a 162 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 21:44:05 ] Hello World !!!! 163 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 16:22:33 ] %82%B1%82%F1%82%C9%82%BF%82%ED 164 名前：デフォルトの名無しさん mailto:sjis [2010/05/26(水) 18:22:56 ] sjis 165 名前：デフォルトの名無しさん mailto:sjis [2010/05/27(木) 23:15:58 ] sjis 166 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:22:33 ] hello 167 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:24:07 ] 縺薙ｓ縺ｫ縺｡繧� 168 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:30:22 ] %82%B1%82%F1%82%C9%82%BF%82%ED 169 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:34:25 ] 縺薙ｓ縺ｫ縺｡繧� 170 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 23:45:37 ] こんにちわ 171 名前：デフォルトの名無しさん mailto:sage [2010/05/28(金) 00:28:21 ] こんにちわ 172 名前：デフォルトの名無しさん mailto:sage [2010/09/25(土) 13:31:59 ] test 173 名前：デフォルトの名無しさん mailto:sage [2010/09/25(土) 16:10:29 ] 猿轡 174 名前：デフォルトの名無しさん mailto:sage [2010/10/16(土) 20:27:23 ] >>845 175 名前：デフォルトの名無しさん [2010/10/19(火) 16:03:09 ] Hell World 176 名前：デフォルトの名無しさん mailto:sage [2010/10/21(木) 18:08:38 ] >>175 感動した。 177 名前：デフォルトの名無しさん mailto:sage [2010/12/01(水) 14:49:23 ] Hello Work 178 名前：デフォルトの名無しさん mailto:sage [2010/12/01(水) 17:40:39 ] hahiふへローワーﾙ度 179 名前：デフォルトの名無しさん mailto:sage [2010/12/07(火) 16:11:45 ] てす 180 名前：デフォルトの名無しさん mailto:sage [2010/12/28(火) 02:51:35 BE:1755072465-PLT(21160)] い 181 名前：デフォルトの名無しさん [2010/12/30(木) 20:09:05 ] はるぶんま。へぽめ。 182 名前：デフォルトの名無しさん [2011/01/21(金) 06:06:28 ] www.amazon.co.jp/dp/B004FGNCNC/ 来年こそ！来年こそこれを買う！ 183 名前：182 mailto:sage [2011/01/21(金) 06:07:12 ] 誤爆 184 名前：デフォルトの名無しさん mailto:sage [2011/01/21(金) 06:29:51 ] >>182 あったかそうだ 185 名前：デフォルトの名無しさん mailto:sage [2011/01/23(日) 02:34:59 ] 地味に面白いスレであったｗ 186 名前：デフォルトの名無しさん mailto:sage [2011/01/23(日) 02:36:17 ] tepo=don 187 名前：デフォルトの名無しさん mailto:sage [2011/02/16(水) 14:01:15 ] tech.bayashi.jp/archives/entry/techweb/2007/001798.html 188 名前：test mailto:sage [2011/04/17(日) 23:30:39.26 ] !ninja 189 名前： 忍法帖【Lv=8,xxxP】 mailto:sage [2011/04/17(日) 23:35:08.73 ] こうか 190 名前： 忍法帖【Lv=10,xxxPT】 mailto:sage [2011/04/19(火) 23:40:25.58 ] テスト 191 名前：デフォルトの名無しさん [2011/04/23(土) 14:39:25.47 ] den=bo もうperl使って書き込む人はいないのか 192 名前：縺ｯ繧阪�ｼ mailto:sage [2011/05/18(水) 10:16:29.07 ] Hello World 193 名前：縺ｯ繧阪�ｼ mailto:sage [2011/05/18(水) 10:17:24.74 ] Hello World 194 名前：縺ｯ繧阪�ｼ mailto:sage [2011/05/18(水) 10:20:30.79 ] Hello World 195 名前：縺ｯ繧阪�ｼ mailto:sage [2011/05/18(水) 10:21:20.63 ] Hello World 196 名前：縺ｯ繧阪�ｼ mailto:sage [2011/05/18(水) 10:21:46.95 ] 縺薙ｓ縺ｩ縺薙◎ 197 名前： 忍法帖【Lv=2,xxxP】 mailto:sage [2011/06/05(日) 20:10:45.16 ] だめだな。 198 名前：デフォルトの名無しさん [2011/06/29(水) 19:43:58.10 ] test 199 名前：デフォルトの名無しさん mailto:sage [2011/06/29(水) 19:49:13.06 ] 48656C6C6F20576F726C64 200 名前：デフォルトの名無しさん [2011/11/20(日) 14:26:58.36 ] ？ 201 名前：デフォルトの名無しさん [2011/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 => "$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にデコードしてそれを出してるかな気がするんですが。 202 名前：デフォルトの名無しさん [2011/12/16(金) 16:51:54.57 ] あー書き忘れ。つまり書き込みには成功するんだけど文字化けしちゃうって ことです。 203 名前：デフォルトの名無しさん mailto:sage [2012/01/21(土) 06:06:29.93 ] UAほしゅぼっとｗ もう解決しただろうなあ、がんばれー 204 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 23:34:46.58 ] a 205 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 23:36:16.28 ] hello world 206 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:26:47.01 ] ハローワールド 207 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:27:49.13 ] 繝上Ο繝ｼ繝ｯ繝ｼ繝ｫ繝・ 208 名前：デフォルトの名無しさん mailto:sage [2012/03/27(火) 01:50:58.63 ] WWW-2ch　なんてモジュールもあるのか 209 名前：デフォルトの名無しさん mailto:sage [2012/03/27(火) 01:57:14.71 ] >>99 これってIEのバージョンは何で動くんだろ？ 6か7か 210 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/05(木) 15:37:41.04 ] 9でも動いたが 211 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/05(木) 15:41:51.55 ] helloworld 212 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 07:01:56.03 ] hello,world 213 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 07:08:26.09 ] はろーわーるど

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef