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

1 名前：デフォルトの名無しさん [2007/07/15(日) 16:16:50 ] 俺、がんばる。みてて。 36 名前：デフォルトの名無しさん mailto:sage [2007/07/15(日) 23:46:11 ] ｷﾁｶﾞｲがいるな 37 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 00:13:27 ] >>36 自己紹介乙！ 38 名前：test mailto:sage [2007/07/16(月) 02:34:11 ] test 39 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 02:34:57 ] あー。書き込めちゃった。まあゆっくりやるかｗ 40 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 08:42:43 ] 脳内妄想が激しいスレだな 41 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 09:38:59 ] 暗いスレだな 42 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 13:34:11 ] ていうか君以外のレスは全部 perl で書かれた bot がやってるって知ってた？惟も含めて。 43 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 15:27:23 ] 日本語OK？ 44 名前：デフォルトの名無しさん mailto:sage [2007/07/16(月) 15:34:37 ] 縺薙ｌ縺ｯ繝悶Λ繧ｦ繧ｶ縺九ｉUTF8縺ｧ譖ｸ縺崎ｾｼ繧薙□譁�蟄� 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) ; # 初回投稿時の確認ウィンドウ用

---

---

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

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