Perlを使って２ちゃんねるにHello Worldを書き込む
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2007/07/15(日) 16:16:50 俺、がんばる。みてて。
2007/07/15(日) 16:23:17
2007/07/15(日) 16:46:02
さて、httpをしゃべるライブラリには何を使ったら良いだろうか？
むかしLWP::Simpleを使ったことはあるとはいえ、
Simpleっていうぐらいだからもっと高度なことをするときには
別のものがいいのだろうか？
むかしLWP::Simpleを使ったことはあるとはいえ、
Simpleっていうぐらいだからもっと高度なことをするときには
別のものがいいのだろうか？
2007/07/15(日) 16:49:03
>3で結果が見えたな
2007/07/15(日) 16:55:14
Perl でやるより Curl でやった方が楽だと思うが...
2007/07/15(日) 16:58:13
なんかCurlって名前のものいくつか無い？
言語？ php用ライブラリ？
言語？ php用ライブラリ？
2007/07/15(日) 17:10:48
あぁ、やっとわかったよ。
http://d.hatena.ne.jp/keyword/curl
ライブラリとしてのlibcurl、それをコマンドラインから使用するcurl。
それとはまったく別の、次世代ウェブ記述言語Curlがあるんだね。
>>5さんがいっているのはコマンドライン用Curl？
悪くは無いんだけど、共有レンタルサーバーでも使えるようなやり方を
目指しているので。でもあとで使うよ！
http://d.hatena.ne.jp/keyword/curl
ライブラリとしてのlibcurl、それをコマンドラインから使用するcurl。
それとはまったく別の、次世代ウェブ記述言語Curlがあるんだね。
>>5さんがいっているのはコマンドライン用Curl？
悪くは無いんだけど、共有レンタルサーバーでも使えるようなやり方を
目指しているので。でもあとで使うよ！
2007/07/15(日) 17:15:09
ところで、phpではlibcurlを使うのかな？
とりあえず、必要と思われる機能は
UserAgentなどのヘッダやクッキーをいろいろ設定してhtmlを読み込む。
帰ってくるヘッダやクッキーを読み取れる機能。
まあ、シンプルじゃないライブラリなら大概、対応しているだろう。
あと個人的に、proxy対応、https対応のライブラリであってほしい。
さぁ、どんなライブラリがあるのか探すぞ！
とりあえず、必要と思われる機能は
UserAgentなどのヘッダやクッキーをいろいろ設定してhtmlを読み込む。
帰ってくるヘッダやクッキーを読み取れる機能。
まあ、シンプルじゃないライブラリなら大概、対応しているだろう。
あと個人的に、proxy対応、https対応のライブラリであってほしい。
さぁ、どんなライブラリがあるのか探すぞ！
2007/07/15(日) 17:18:34
あと認証機能もほしいね。BASIC認証とかいろいろ
2007/07/15(日) 17:19:43
LWPってlibwww-perl の略だったのか。今頃気づいたｗｗｗ
2007/07/15(日) 17:21:18
>>1
Javaが簡単だお
Javaが簡単だお
12獅子王
2007/07/15(日) 17:22:00 あの〜、ずいぶん久方ぶりの書き込みなんですけど僕もperlを使ってみたいなぁと思うんです。
だけどあの英語漬けのサイトで一体どうやればダウンロードできるのかわかりません。
誰か暇つぶしついでに教えていただけませんか？
だけどあの英語漬けのサイトで一体どうやればダウンロードできるのかわかりません。
誰か暇つぶしついでに教えていただけませんか？
2007/07/15(日) 17:22:26
とりあえず、肩慣らしにこのスレを読み込むコード
use LWP::Simple;
print get 'http://pc11.2ch.net/test/read.cgi/tech/1184483810/';
use LWP::Simple;
print get 'http://pc11.2ch.net/test/read.cgi/tech/1184483810/';
2007/07/15(日) 17:23:55
2007/07/15(日) 17:25:40
しかし、PerlではLWPを使うのが基本でいいのだろうか？
今はもっといいのがあるのではないかと思いながら、ぐぐっていると
ここみれば出来そうｗ
http://homepage3.nifty.com/hippo2000/perltips/LWP.html
今はもっといいのがあるのではないかと思いながら、ぐぐっていると
ここみれば出来そうｗ
http://homepage3.nifty.com/hippo2000/perltips/LWP.html
2007/07/15(日) 17:28:06
うほっ！らくだなｗ
http://digit.que.ne.jp/work/index.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FLWP#i3
LWPで、「https://」で始まるSSL使用サイトにアクセスできますか？
編集
できます。
LWPはCrypt::SSLeayがインストールされていれば、自動的にSSL使用サイトへのアクセスも適切に処理してくれます。
アクセス先が「https://」で始まっていても、スクリプトを変える必要はまったくありません。
それどころか、プロトコルが「http」か「https」かということすら判定する必要はありません。
http://digit.que.ne.jp/work/index.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FLWP#i3
LWPで、「https://」で始まるSSL使用サイトにアクセスできますか？
編集
できます。
LWPはCrypt::SSLeayがインストールされていれば、自動的にSSL使用サイトへのアクセスも適切に処理してくれます。
アクセス先が「https://」で始まっていても、スクリプトを変える必要はまったくありません。
それどころか、プロトコルが「http」か「https」かということすら判定する必要はありません。
2007/07/15(日) 17:37:42
よし、たいしたことができないであろう、LWP::Simpleじゃなくて、
もっといろいろできるであろうLWP::UserAgentを使ったコートだ
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");
$req = HTTP::Request->new(GET => 'http://pc11.2ch.net/test/read.cgi/tech/1184483810/');
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
if ($res->is_success) {
print $res->content;
} else {
print "Error: " . $res->status_line . "\n";
}
もっといろいろできるであろうLWP::UserAgentを使ったコートだ
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");
$req = HTTP::Request->new(GET => 'http://pc11.2ch.net/test/read.cgi/tech/1184483810/');
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
if ($res->is_success) {
print $res->content;
} else {
print "Error: " . $res->status_line . "\n";
}
2007/07/15(日) 17:55:21
荒らしスクリプトをオープンで作ってる・・・
2007/07/15(日) 17:59:35
>>18
違いますよ。ただの２ちゃんねるブラウザですよ。^^;
違いますよ。ただの２ちゃんねるブラウザですよ。^^;
2007/07/15(日) 18:13:22
ちょっとIEがだすhttpヘッダみたいから、これいれる。
http://www.blunck.info/iehttpheaders/iehttpheaders.html
http://www.blunck.info/iehttpheaders/iehttpheaders.html
2007/07/15(日) 18:22:23
あれ？>>20のやつVistaで動かない。XP上のIE7なら動いていたんだが・・・
まあ、それならそれでFirefoxのやつつかうけどさ
まあ、それならそれでFirefoxのやつつかうけどさ
2007/07/15(日) 19:00:03
とりあえず、クッキーとか何も持っていない状態でブラウザから普通に書き込むと、
POSTで以下の内容が送られるな。
submit=%8F%91%82%AB%8D%9E%82%DE
FROM=aaa
mail=bbb
MESSAGE=ccc
bbs=tech
key=10桁の数字
time=10桁の数字
そして、以下のクッキーを保存しろといってくる。意味はぐぐればわかるだろう
PON=俺のホスト; expires=Friday, 01-Jan-2010 00:00:00 GMT; path=/
HAP=7桁の数字; expires=Friday, 01-Jan-2010 00:00:00 GMT; path=/
JavaScriptが有効になっていると少し変わるようだ。
いつの間にか、NAME="aaa" MAIL="bbb" がセットされており、
送信するときに、上記のクッキーを送っている。まあ無視して良いだろう。
POSTで以下の内容が送られるな。
submit=%8F%91%82%AB%8D%9E%82%DE
FROM=aaa
mail=bbb
MESSAGE=ccc
bbs=tech
key=10桁の数字
time=10桁の数字
そして、以下のクッキーを保存しろといってくる。意味はぐぐればわかるだろう
PON=俺のホスト; expires=Friday, 01-Jan-2010 00:00:00 GMT; path=/
HAP=7桁の数字; expires=Friday, 01-Jan-2010 00:00:00 GMT; path=/
JavaScriptが有効になっていると少し変わるようだ。
いつの間にか、NAME="aaa" MAIL="bbb" がセットされており、
送信するときに、上記のクッキーを送っている。まあ無視して良いだろう。
23デフォルトの名無しさん
2007/07/15(日) 19:05:53 WWW::2chに書き込み機能は相変わらず無いのか?
2007/07/15(日) 19:10:52
>>23
そんなのがあるのかｗ あとでみてみる。
２ちゃんねるを知っている人には当たり前だろうが、
初めて書き込むときには、「上記全てを承諾して書き込む」がでる。
クッキー名hanaにmogeraが設定されているかどうかで判断されるようだ。
これは今現在の話なので将来は変わる？スレごとに違うのかな？
とりあえずクッキーを持たずに書き込むと飛ばされる「上記全てを承諾して書き込む」ページには
>>22で送られる内容にくわえ、hiddenでhana=mogeraが追加されている。（subject=""もあるがスレ立て時に使われるのか？）
そこらへんを見れば、クッキー名や値が変わっても対応できるのかもしれない。
そんなのがあるのかｗ あとでみてみる。
２ちゃんねるを知っている人には当たり前だろうが、
初めて書き込むときには、「上記全てを承諾して書き込む」がでる。
クッキー名hanaにmogeraが設定されているかどうかで判断されるようだ。
これは今現在の話なので将来は変わる？スレごとに違うのかな？
とりあえずクッキーを持たずに書き込むと飛ばされる「上記全てを承諾して書き込む」ページには
>>22で送られる内容にくわえ、hiddenでhana=mogeraが追加されている。（subject=""もあるがスレ立て時に使われるのか？）
そこらへんを見れば、クッキー名や値が変わっても対応できるのかもしれない。
2007/07/15(日) 19:16:15
どうやら、書き込むときに
hana=mogera と
PON = 俺のホスト名 が
無ければいけないようだ。
hana=mogeraはさっきも書いたように同意するかどうか、
PONが変わる（つまり回線をつなぎなおしたとき）は確認画面に飛ばされる。
HAPはなんだろう？無くても書き込めるようだがまたセットさせられる。
さてぐぐるかｗ
hana=mogera と
PON = 俺のホスト名 が
無ければいけないようだ。
hana=mogeraはさっきも書いたように同意するかどうか、
PONが変わる（つまり回線をつなぎなおしたとき）は確認画面に飛ばされる。
HAPはなんだろう？無くても書き込めるようだがまたセットさせられる。
さてぐぐるかｗ
2007/07/15(日) 19:28:22
そういや、ルータを使っている場合に自分のホスト名って
（外部のサーバーなしに）取得できるんかいな？
ルータのUPnP機能に問い合わせればわかるようなことを
以前見た気がするが・・・
まあ、２ちゃんねるに限れば、普通にアクセスして
戻ってきたクッキーをちゃんと記憶すればいいだろうけど。
（外部のサーバーなしに）取得できるんかいな？
ルータのUPnP機能に問い合わせればわかるようなことを
以前見た気がするが・・・
まあ、２ちゃんねるに限れば、普通にアクセスして
戻ってきたクッキーをちゃんと記憶すればいいだろうけど。
2007/07/15(日) 20:00:15
ふう。風呂はいっていたよ。
さてのんびりやるぞ！
これからの投稿予定は次のとおりとなっております。お楽しみに。
・POSTを使ったデータ送信
・クッキーの取得
・クッキーの送信
・書き込めた！
・やっぱ文字コードはUNICODEでしょ！
・BASIC認証がある場合は・・・
・それ以外認証ページは・・・
・httpsページにトライ！
・そしてphp版へ・・・
・そしてCurl版へ・・・
さてのんびりやるぞ！
これからの投稿予定は次のとおりとなっております。お楽しみに。
・POSTを使ったデータ送信
・クッキーの取得
・クッキーの送信
・書き込めた！
・やっぱ文字コードはUNICODEでしょ！
・BASIC認証がある場合は・・・
・それ以外認証ページは・・・
・httpsページにトライ！
・そしてphp版へ・・・
・そしてCurl版へ・・・
2007/07/15(日) 21:05:45
とても楽しめそうにない件について。
2007/07/15(日) 21:19:28
2007/07/15(日) 21:25:47
楽しいなあ
楽しいなあ
楽しいなあ
楽しいなあ
楽しいなあ
2007/07/15(日) 22:04:46
どうも荒らしスクリプトを作ろうと思っている様にしか思えんなぁ。
そもそも人にきかなきゃわからんレベルの人間がやるものでもないし。
そもそも人にきかなきゃわからんレベルの人間がやるものでもないし。
2007/07/15(日) 22:08:02
俺、別に聞いてないし・・・・。
2007/07/15(日) 22:22:52
何でもしたり顔でケチ付けようとする人間はいるもんだよ
自分でも言ってる意味が分かってないから、反論しても無駄
自分でも言ってる意味が分かってないから、反論しても無駄
2007/07/15(日) 22:28:28
必死だな。
35デフォルトの名無しさん
2007/07/15(日) 22:51:57 何事にも必死に取り組まなければ2ちゃんねらになっちゃう!!
そう子供たちに教えるべきだね。
そう子供たちに教えるべきだね。
2007/07/15(日) 23:46:11
ｷﾁｶﾞｲがいるな
2007/07/16(月) 00:13:27
38test
2007/07/16(月) 02:34:11 test
2007/07/16(月) 02:34:57
あー。書き込めちゃった。まあゆっくりやるかｗ
2007/07/16(月) 08:42:43
脳内妄想が激しいスレだな
2007/07/16(月) 09:38:59
暗いスレだな
2007/07/16(月) 13:34:11
ていうか君以外のレスは全部 perl で書かれた bot がやってるって知ってた？惟も含めて。
2007/07/16(月) 15:27:23
日本語OK？
2007/07/16(月) 15:34:37
縺薙ｌ縺ｯ繝悶Λ繧ｦ繧ｶ縺九ｉUTF8縺ｧ譖ｸ縺崎ｾｼ繧薙□譁?蟄?
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はダウンロードしやがるぜ。けっ
テスト用に、サーバーに送信したデータをそのまま表示するだけの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はダウンロードしやがるぜ。けっ
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 => 'http://www.example.com/test.php?getdata=gettest');
$req->header(
'Accept' => '*/*',
'Accept-Language' => 'ja-JP,en-US;q=0.5',
'Referer' => 'http://www.example.com/',
);
$req->content_type('application/x-www-form-urlencoded');
$req->content('postdata=posttest');
print $ua->request($req)->as_string;
スクリプト（>>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 => 'http://www.example.com/test.php?getdata=gettest');
$req->header(
'Accept' => '*/*',
'Accept-Language' => 'ja-JP,en-US;q=0.5',
'Referer' => 'http://www.example.com/',
);
$req->content_type('application/x-www-form-urlencoded');
$req->content('postdata=posttest');
print $ua->request($req)->as_string;
2007/07/16(月) 21:23:57
Hello World
2007/07/16(月) 21:31:30
なんか資料見つけたので追加
http://age.s22.xrea.com/talk2ch/
http://age.s22.xrea.com/talk2ch/
2007/07/16(月) 22:12:37
Hello World 2
2007/07/16(月) 22:22:18
うーん。postするときのtimeの数字ってなんだろう？
日付に直すと Sun, 02 Jan 2005 17:55:08 GMT なんだが、
どこから取得すればいいのだ？
htmlのフォームから取得できるのはわかるが・・・
日付に直すと Sun, 02 Jan 2005 17:55:08 GMT なんだが、
どこから取得すればいいのだ？
htmlのフォームから取得できるのはわかるが・・・
2007/07/16(月) 22:37:29
Hello World 3
2007/07/16(月) 22:38:34
Hello World 3
2007/07/16(月) 22:40:05
Hello World 3
2007/07/16(月) 22:41:19
Hello World 3
2007/07/16(月) 22:42:24
よくわからんが、現在時刻マイナス？ で書き込めるようだ。
2007/07/16(月) 23:03:50
ここでテストするのはやめれ。運営にチクるぜー？
2007/07/17(火) 00:09:52
通報しますた
2007/07/17(火) 01:46:58
あぼーんだらけの某板に書いてみるとか
2007/07/17(火) 08:54:34
最悪板あたりでやればいいのでは
2007/07/26(木) 18:14:07
結局どこいったん＞
61デフォルトの名無しさん
2007/07/27(金) 01:20:272007/07/27(金) 01:49:01
他の鯖でも試してみた？
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;
}
#!/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;
}
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 ヒント：全角スペース
2007/09/08(土) 00:57:04
2007/09/08(土) 14:36:00
みんな車輪の再開発をして技術を身に付けるんだよ。
弟子は師匠の筆の跡を盗むもんだ。
弟子は師匠の筆の跡を盗むもんだ。
2007/10/04(木) 13:01:14
perlだけでなくrubyやpythonその他
いろいろな言語でこれをするならどれが一番きれいだと思う?
いろいろな言語でこれをするならどれが一番きれいだと思う?
2007/10/05(金) 09:53:41
elisp
71デフォルトの名無しさん
2008/01/10(木) 11:13:45 >>22
これってどうやって調べたん？
これってどうやって調べたん？
2008/01/10(木) 12:04:21
hello world
2008/01/10(木) 23:37:44
2008/01/11(金) 09:22:43
pythonだったら2ch書込用ライブラリ作ったけど
2008/01/11(金) 11:51:26
omaeka
2008/01/15(火) 05:41:47
うんこ
2008/01/15(火) 05:42:50
cgiからも書き込めるようにしてみた。
だからアク禁くらってもレンタルサーバーにcgiぶっこめばいくらでも書き込める。
だからアク禁くらってもレンタルサーバーにcgiぶっこめばいくらでも書き込める。
2008/01/15(火) 05:45:20
うんこ
2008/01/15(火) 05:46:25
うんこ
2008/01/28(月) 11:56:22
てすと
8180
2008/01/28(月) 12:02:46 すまん
誤爆した。
誤爆した。
8280
2008/01/28(月) 12:04:16 すまん
誤爆した。
誤爆した。
8380
2008/01/28(月) 12:09:40 すまん
誤爆した。
誤爆した。
2008/01/31(木) 05:50:43
てすと
2008/01/31(木) 05:53:43
てすと
2008/03/19(水) 02:51:43
ActivePerl-5.10.0.1002-MSWin32-x86-283697.msi
を保存して
ダブルクイックすると
『インストール パッケージを開くことができませんでした。アプリケーションベンダに問い合わせ、このパッケージが有効なWindowｓインストーラパッケージであることを確認してください。』 と出るのですが
何が問題あるのでしょうか
を保存して
ダブルクイックすると
『インストール パッケージを開くことができませんでした。アプリケーションベンダに問い合わせ、このパッケージが有効なWindowｓインストーラパッケージであることを確認してください。』 と出るのですが
何が問題あるのでしょうか
87うっかり八兵衛
2008/03/19(水) 06:04:172008/03/19(水) 07:27:01
とりあえず乙
2008/03/29(土) 00:38:42
>>86
亀レスだがそれはファイルが壊れてるだけ。
俺もこの前WIN再インスコしたときになった。
activeperlのある鯖が不安定っぽいからリジューム機能のついてるツール使ってダウソしたほうがいいよ。
亀レスだがそれはファイルが壊れてるだけ。
俺もこの前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
2008/08/22(金) 22:10:36
wget --referer=http://pc11.2ch.net --save-cookie=c --load-cookie=c --post-data='hana=mogera&bbs=tech&key=1184483810&time=1&mail=&FROM=&MESSAGE=test' http://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 = 'http://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;
なんで、これでじゃかきこめないわけ?
use warnings;
use strict;
use WWW::Mechanize;
my $url = 'http://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;
なんで、これでじゃかきこめないわけ?
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 http://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('http://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) ; # 初回投稿時の確認ウィンドウ用
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('http://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デフォルトの名無しさん
2008/12/10(水) 02:24:59 Hellow World
101デフォルトの名無しさん
2008/12/10(水) 02:28:25 test
102デフォルトの名無しさん
2008/12/10(水) 02:40:04 Hellow world
103デフォルトの名無しさん
2008/12/10(水) 02:44:02 Hellow Fuck!
104名無しさん＠お腹すいた
2008/12/10(水) 02:46:30 うんこちんちん
105hage
2008/12/10(水) 03:14:51 Hellow Fuck!
106hage
2008/12/10(水) 03:26:37 Hellow Fuck!
107hage
2008/12/10(水) 03:34:42 Hellow Fuck!
108test
2008/12/10(水) 03:35:28 test
109hage
2008/12/10(水) 03:36:04 Hellow Fuck!
110hage
2008/12/10(水) 05:40:53 Hellow Fuck!
111デフォルトの名無しさん
2009/01/19(月) 09:19:05 じゃあ、PHPで書き込むにはどうしたらいいですか？
112デフォルトの名無しさん
2009/01/19(月) 11:23:50113デフォルトの名無しさん
2009/01/19(月) 14:16:06 >>112
おお、ありがとうございます！！ そのやり方も教えて下さい！！
おお、ありがとうございます！！ そのやり方も教えて下さい！！
114デフォルトの名無しさん
2009/02/08(日) 18:28:52 じぐもとらせてください
115デフォルトの名無しさん
2009/04/09(木) 22:28:09 スレ違い
116デフォルトの名無しさん
2009/05/31(日) 23:18:29 WWW::Mechanize使わずにやろうとしたらどうなるんだろう。
117デフォルトの名無しさん
2009/06/07(日) 15:00:39 Coco豚肉一辛カレー、ガーリックかけたらおいしかったけれど、全部食べきれなかった。
118デフォルトの名無しさん
2009/07/11(土) 12:55:52 Hallo World!
119デフォルトの名無しさん
2009/07/11(土) 19:26:21 Hello World!
120デフォルトの名無しさん
2009/07/11(土) 19:28:02 Hello World!
121デフォルトの名無しさん
2009/07/11(土) 19:39:10 Hello World! ｱﾋｬ
122デフォルトの名無しさん
2009/07/11(土) 19:42:16 これならプロバイダ規制受けても書き込みできるな
ｲﾔｯﾎｳ
ｲﾔｯﾎｳ
123デフォルトの名無しさん
2009/07/11(土) 22:47:56 helohelo
124デフォルトの名無しさん
2009/07/22(水) 20:56:08 hello worldｗｗ
125デフォルトの名無しさん
2009/07/22(水) 20:58:49 hello worldｗｗ
126デフォルトの名無しさん
2009/07/22(水) 20:59:30 hello worldｗｗ
127デフォルトの名無しさん
2009/07/22(水) 21:00:12 hello worldｗｗ
128デフォルトの名無しさん
2009/07/22(水) 21:09:14 teest
129デフォルトの名無しさん
2009/07/22(水) 21:12:00 test2
130デフォルトの名無しさん
2009/07/22(水) 21:15:49 hello world??
131デフォルトの名無しさん
2009/07/22(水) 21:17:59 test
132デフォルトの名無しさん
2009/07/22(水) 21:18:06 hello world??
133デフォルトの名無しさん
2009/07/22(水) 21:23:40 てｓｔ
134デフォルトの名無しさん
2009/07/22(水) 21:43:07 てｓｔ
135デフォルトの名無しさん
2009/07/23(木) 17:33:47 test
136デフォルトの名無しさん
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?
>>> 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?
>>> 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日中 遊んでるらしいから
ジェット旅客機の 飛行中の映画モニターに映す
世界をつなげる ソフト
世界が一体感をもてる 世界平和に貢献できるようなそんな気がする
それと コンピューター工学を基礎から考えることなんだ。
ぼくは タイムマシンとかつくって 現在光速で飛行中 自室のコックピットから 書き込んでる だから 時間はいっぱいあるんだ。
ショートムービー とか つくる ソフトをつくることなんだ
それを 発展させて 人工知能系に つなげる
英国f１とかの大画面モニター 1日中 遊んでるらしいから
ジェット旅客機の 飛行中の映画モニターに映す
世界をつなげる ソフト
世界が一体感をもてる 世界平和に貢献できるようなそんな気がする
それと コンピューター工学を基礎から考えることなんだ。
ぼくは タイムマシンとかつくって 現在光速で飛行中 自室のコックピットから 書き込んでる だから 時間はいっぱいあるんだ。
142デフォルトの名無しさん
2009/07/31(金) 01:36:37 >>140
それがどうした？
それがどうした？
143デフォルトの名無しさん
2009/10/28(水) 21:54:10 まんこ、めぐりあい。そしてかくれんぼ。
144test
2009/11/05(木) 18:26:43 hello world
145デフォルトの名無しさん
2009/11/05(木) 18:45:29 hello world
146デフォルトの名無しさん
2009/11/05(木) 18:48:07 hello world
147デフォルトの名無しさん
2010/01/05(火) 20:34:24 Hellow★World
148デフォルトの名無しさん
2010/01/05(火) 20:37:01 hellow world
149デフォルトの名無しさん
2010/01/06(水) 01:23:02 tes
150デフォルトの名無しさん
2010/01/26(火) 21:57:57 テスト
151デフォルトの名無しさん
2010/03/31(水) 21:14:23 ハロー ワーク
152デフォルトの名無しさん
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デフォルトの名無しさん
2010/04/05(月) 12:56:54 sage
158デフォルトの名無しさん
2010/04/07(水) 14:39:01 Hello World !
159デフォルトの名無しさん
2010/04/07(水) 17:06:07 Goobye World!
160デフォルトの名無しさん
2010/05/25(火) 20:29:40 Hello World!!!
161デフォルトの名無しさん
2010/05/25(火) 21:16:32 a
162デフォルトの名無しさん
2010/05/25(火) 21:44:05 Hello World !!!!
163デフォルトの名無しさん
2010/05/26(水) 16:22:33 %82%B1%82%F1%82%C9%82%BF%82%ED
164デフォルトの名無しさん
2010/05/26(水) 18:22:56 sjis
165デフォルトの名無しさん
2010/05/27(木) 23:15:58 sjis
166デフォルトの名無しさん
2010/05/27(木) 23:22:33 hello
167デフォルトの名無しさん
2010/05/27(木) 23:24:07 縺薙ｓ縺ｫ縺｡繧?
168デフォルトの名無しさん
2010/05/27(木) 23:30:22 %82%B1%82%F1%82%C9%82%BF%82%ED
169デフォルトの名無しさん
2010/05/27(木) 23:34:25 縺薙ｓ縺ｫ縺｡繧?
170デフォルトの名無しさん
2010/05/27(木) 23:45:37 こんにちわ
171デフォルトの名無しさん
2010/05/28(金) 00:28:21 こんにちわ
172デフォルトの名無しさん
2010/09/25(土) 13:31:59 test
173デフォルトの名無しさん
2010/09/25(土) 16:10:29 猿轡
174デフォルトの名無しさん
2010/10/16(土) 20:27:23175デフォルトの名無しさん
2010/10/19(火) 16:03:09 Hell World
176デフォルトの名無しさん
2010/10/21(木) 18:08:38 >>175
感動した。
感動した。
177デフォルトの名無しさん
2010/12/01(水) 14:49:23 Hello Work
178デフォルトの名無しさん
2010/12/01(水) 17:40:39 hahiふへローワーﾙ度
179デフォルトの名無しさん
2010/12/07(火) 16:11:45 てす
い
181デフォルトの名無しさん
2010/12/30(木) 20:09:05 はるぶんま。へぽめ。
182デフォルトの名無しさん
2011/01/21(金) 06:06:28 http://www.amazon.co.jp/dp/B004FGNCNC/
来年こそ！来年こそこれを買う！
来年こそ！来年こそこれを買う！
183182
2011/01/21(金) 06:07:12 誤爆
184デフォルトの名無しさん
2011/01/21(金) 06:29:51 >>182
あったかそうだ
あったかそうだ
185デフォルトの名無しさん
2011/01/23(日) 02:34:59 地味に面白いスレであったｗ
186デフォルトの名無しさん
2011/01/23(日) 02:36:17 tepo=don
187デフォルトの名無しさん
2011/02/16(水) 14:01:15188test
2011/04/17(日) 23:30:39.26 !ninja
191デフォルトの名無しさん
2011/04/23(土) 14:39:25.47 den=bo
もうperl使って書き込む人はいないのか
もうperl使って書き込む人はいないのか
192縺ｯ繧阪?ｼ
2011/05/18(水) 10:16:29.07 Hello World
193縺ｯ繧阪?ｼ
2011/05/18(水) 10:17:24.74 Hello World
194縺ｯ繧阪?ｼ
2011/05/18(水) 10:20:30.79 Hello World
195縺ｯ繧阪?ｼ
2011/05/18(水) 10:21:20.63 Hello World
196縺ｯ繧阪?ｼ
2011/05/18(水) 10:21:46.95 縺薙ｓ縺ｩ縺薙◎
198デフォルトの名無しさん
2011/06/29(水) 19:43:58.10 test
199デフォルトの名無しさん
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 => "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にデコードしてそれを出してるかな気がするんですが。
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にデコードしてそれを出してるかな気がするんですが。
202デフォルトの名無しさん
2011/12/16(金) 16:51:54.57 あー書き忘れ。つまり書き込みには成功するんだけど文字化けしちゃうって
ことです。
ことです。
203デフォルトの名無しさん
2012/01/21(土) 06:06:29.93 UAほしゅぼっとｗ
もう解決しただろうなあ、がんばれー
もう解決しただろうなあ、がんばれー
204デフォルトの名無しさん
2012/03/20(火) 23:34:46.58 a
205デフォルトの名無しさん
2012/03/20(火) 23:36:16.28 hello world
206デフォルトの名無しさん
2012/03/21(水) 00:26:47.01 ハローワールド
207デフォルトの名無しさん
2012/03/21(水) 00:27:49.13 繝上Ο繝ｼ繝ｯ繝ｼ繝ｫ繝・
208デフォルトの名無しさん
2012/03/27(火) 01:50:58.63 WWW-2ch なんてモジュールもあるのか
209デフォルトの名無しさん
2012/03/27(火) 01:57:14.712012/04/05(木) 15:37:41.04
9でも動いたが
2012/04/05(木) 15:41:51.55
helloworld
2012/04/08(日) 07:01:56.03
hello,world
2012/04/08(日) 07:08:26.09
はろーわーるど
214niconico
2012/08/11(土) 04:12:58.61 という訳で晒しage
215デフォルトの名無しさん
2013/03/18(月) 05:50:04.86 Hello わーるど
216デフォルトの名無しさん
2013/05/13(月) 03:59:38.53 test
217デフォルトの名無しさん
2013/05/13(月) 04:02:44.47 test
tese
test
tese
test
218デフォルトの名無しさん
2013/05/13(月) 04:16:29.89 test2
219デフォルトの名無しさん
2013/05/13(月) 04:24:40.60 TEST
220デフォルトの名無しさん
2013/05/13(月) 04:45:39.16 test004
221デフォルトの名無しさん
2013/07/30(火) NY:AN:NY.AN ＞大阪府三島郡島本町の小学校や中学校は、暴力イジメ学校や。
島本町の学校でいじめ・暴力・脅迫・恐喝などを受け続けて、心も身体も壊されて廃人同様になってしもうた僕が言うんやから、
まちがいないで。精神病院へ行っても、ちっとも良うならへん。教師も校長も、暴力やいじめがあっても見て見ぬフリ。
そればかりか、イジメに加担する教師もおった。 誰かがイジメを苦にして自殺しても、「本校にイジメは
なかった」と言うて逃げるんやろうなあ。
島本町の学校の関係者は、僕を捜し出して口封じをするな
＞島本町って町は、暴力といじめの町なんだな
＞「口封じ」なんかしません。どうぞ、気が済むまでお書き込み下さい。
島本町は日本の恥！島本町は日本の迷惑！
島本町の学校でいじめ・暴力・脅迫・恐喝などを受け続けて、心も身体も壊されて廃人同様になってしもうた僕が言うんやから、
まちがいないで。精神病院へ行っても、ちっとも良うならへん。教師も校長も、暴力やいじめがあっても見て見ぬフリ。
そればかりか、イジメに加担する教師もおった。 誰かがイジメを苦にして自殺しても、「本校にイジメは
なかった」と言うて逃げるんやろうなあ。
島本町の学校の関係者は、僕を捜し出して口封じをするな
＞島本町って町は、暴力といじめの町なんだな
＞「口封じ」なんかしません。どうぞ、気が済むまでお書き込み下さい。
島本町は日本の恥！島本町は日本の迷惑！
222デフォルトの名無しさん
2014/02/23(日) 02:55:15.70 >>221
この人の時刻おかしくない？
この人の時刻おかしくない？
223デフォルトの名無しさん
2014/02/26(水) 07:36:36.74 おかしいね
224デフォルトの名無しさん
2014/02/26(水) 08:59:53.51 ７−８月ごろのレスがみんなそうなってるのを見た
225デフォルトの名無しさん
2014/02/26(水) 22:29:23.27 何か壊れたのかね。
226デフォルトの名無しさん
2014/02/26(水) 22:49:01.99 専ブラだとちゃんと見える
227デフォルトの名無しさん
2014/02/26(水) 22:49:45.17 違うか、俺は過去ログ持ってるからちゃんと見えてるのか
228デフォルトの名無しさん
2014/02/28(金) 22:03:18.81 過去ログ万歳
229デフォルトの名無しさん
2014/03/01(土) 21:38:50.04 Perl使って書き込むのってそんなに難しくないような
HTTP通信するモジュール入れて
ブラウザからクッキーとフォームの内容をコピペしてPOST送信するだけだろ
HTTP通信するモジュール入れて
ブラウザからクッキーとフォームの内容をコピペしてPOST送信するだけだろ
230デフォルトの名無しさん
2014/03/01(土) 21:46:06.24 じゃあ逆にしたら？
2chを使ってPerlにHello Worldを書き込む。
2chの力を結集して純正Perlのコードに採用されるってことにしたらいい。
これはちょっと難しいでしょ。
2chを使ってPerlにHello Worldを書き込む。
2chの力を結集して純正Perlのコードに採用されるってことにしたらいい。
これはちょっと難しいでしょ。
231デフォルトの名無しさん
2014/03/01(土) 22:11:46.65 >>229
わざわざそんな面倒なことしなくてもｗｗｗ
わざわざそんな面倒なことしなくてもｗｗｗ
232デフォルトの名無しさん
2014/03/03(月) 22:06:16.06 PHPのほうが簡単
233デフォルトの名無しさん
2014/03/06(木) 06:41:45.14 >>1
馬鹿には無理
馬鹿には無理
234デフォルトの名無しさん
2014/03/08(土) 18:45:17.11 Perlはオワコン産廃
初心者はPerlだけはやめとけ
初心者はPerlだけはやめとけ
235デフォルトの名無しさん
2014/03/08(土) 20:30:01.60 熟練したPerl MongersたちはPerlから離れない
ヤツらが真のPerl使いで、Larryから奥義を授かった伝承者
ヤツらが真のPerl使いで、Larryから奥義を授かった伝承者
236デフォルトの名無しさん
2014/11/09(日) 14:20:03.84ID:iOEsToOb 2chハロワなんて書き込んで何がしたいんだ
237デフォルトの名無しさん
2014/12/01(月) 22:38:15.91ID:kDU72JEV スレを荒らしたいんだと
238デフォルトの名無しさん
2015/01/20(火) 12:26:21.06ID:uCm0Wkvc 1ヶ月前くらいに作ったスクリプトから書き込めないんだが仕様変わった？
239デフォルトの名無しさん
2015/07/30(木) 20:21:58.25ID:Gg/H0igC アッー 夏休み
240デフォルトの名無しさん
2015/08/06(木) 23:12:26.97ID:4IBTADIH 書き込めるかどうかの簡易テストをやったんだけど書けないんだ。
アドバイスくれる人いるかな。
いるならソース書く
アドバイスくれる人いるかな。
いるならソース書く
241デフォルトの名無しさん
2015/08/07(金) 01:18:28.41ID:h8EySD2z httpd立ち上げてlocalhostに対しての入出力は成功したけど、
どうも2ちゃんには弾かれる。
書き込みましたと言うメッセージだけは出るんだが。
どうも2ちゃんには弾かれる。
書き込みましたと言うメッセージだけは出るんだが。
242デフォルトの名無しさん
2015/08/08(土) 02:52:09.47ID:fWz/uAIX 予想外の事態だ。
普通のブラウザからの書き込みも弾かれてた。
専ブラじゃないと書き込めねぇ。
こりゃ無理かな
普通のブラウザからの書き込みも弾かれてた。
専ブラじゃないと書き込めねぇ。
こりゃ無理かな
243デフォルトの名無しさん
2015/08/08(土) 03:49:01.73ID:fWz/uAIX test
244デフォルトの名無しさん
2015/08/08(土) 08:23:22.54ID:fWz/uAIX test-
245デフォルトの名無しさん
2015/08/08(土) 08:50:05.21ID:fWz/uAIX test3
246デフォルトの名無しさん
2015/10/17(土) 09:09:39.00ID:hR1BXQgz いまさらだがUAだろどーせ
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「もうキモくてキモくて…」29歳女性が語る“おぢアタック”の実態。「俺ならイケるかも」年下女性を狙う勘違い中年男性に共通点が★4 [Hitzeschleier★]
- ミス・ユニバース フィンランド代表の「つり目」写真が波紋… 本人釈明も批判やまず 協会謝罪「徹底的に検証」へ [冬月記者★]
- 【おこめ券】鈴木憲和農相 小泉前農相の備蓄米放出を“反省”「備蓄の円滑な運営を図ってまいります」 [Hitzeschleier★]
- 自民・麻生太郎副総裁 石破政権の1年は「どよーん」 高市政権発足で「何となく明るくなった」「世の中のことが決まり動いている」★2 [Hitzeschleier★]
- 1人3千円の食品高騰対策、何に使える？ あいまいなまま衆院通過 [蚤の市★]
- ゆたぼん 二重手術を報告「めちゃくちゃ気に入っています」 [muffin★]
- ネトウヨ、「高市さんがカンペを無視して存立危機発言をしたのは、岡田に『カンペ読むな』と執拗に言われたので言っただけ」と歴史を捏造 [314039747]
- コウメ太夫のネタ考えたから評価してくれ
- トランプ、G7に代わるcore 5を発表 [805596214]
- 【悲報】新米、全く売れなくて倉庫が満杯になってしまうwwwwwwwwwwwwwwwwwwww [802034645]
- 敵「ククク、キミの親友の俺くんの死体を蘇らせて操り、お前らと戦わせるぞ」お前ら「」←どうする？
- 【悲報】日本共産党、ツイッター速報にブチギレ法的措置WWWWWWWWWWWWWWWWWWWWWWWWWWWW [935793931]