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

**デフォルトの名無しさん** · 2007/07/15(日) 16:16:50

俺、がんばる。みてて。

**デフォルトの名無しさん** · 2007/07/15(日) 19:10:52

>>23
そんなのがあるのかｗあとでみてみる。

２ちゃんねるを知っている人には当たり前だろうが、
初めて書き込むときには、「上記全てを承諾して書き込む」がでる。
クッキー名hanaにmogeraが設定されているかどうかで判断されるようだ。
これは今現在の話なので将来は変わる？スレごとに違うのかな？

とりあえずクッキーを持たずに書き込むと飛ばされる「上記全てを承諾して書き込む」ページには
>>22で送られる内容にくわえ、hiddenでhana=mogeraが追加されている。（subject=""もあるがスレ立て時に使われるのか？）
そこらへんを見れば、クッキー名や値が変わっても対応できるのかもしれない。

**デフォルトの名無しさん** · 2007/07/15(日) 19:16:15

どうやら、書き込むときに
hana=mogera と
PON = 俺のホスト名が
無ければいけないようだ。

hana=mogeraはさっきも書いたように同意するかどうか、
PONが変わる（つまり回線をつなぎなおしたとき）は確認画面に飛ばされる。

HAPはなんだろう？無くても書き込めるようだがまたセットさせられる。
さてぐぐるかｗ

**デフォルトの名無しさん** · 2007/07/15(日) 19:28:22

そういや、ルータを使っている場合に自分のホスト名って
（外部のサーバーなしに）取得できるんかいな？

ルータのUPnP機能に問い合わせればわかるようなことを
以前見た気がするが・・・

まあ、２ちゃんねるに限れば、普通にアクセスして
戻ってきたクッキーをちゃんと記憶すればいいだろうけど。

**デフォルトの名無しさん** · 2007/07/15(日) 20:00:15

ふう。風呂はいっていたよ。

さてのんびりやるぞ！

これからの投稿予定は次のとおりとなっております。お楽しみに。

・POSTを使ったデータ送信
・クッキーの取得
・クッキーの送信
・書き込めた！
・やっぱ文字コードはUNICODEでしょ！
・BASIC認証がある場合は・・・
・それ以外認証ページは・・・
・httpsページにトライ！
・そしてphp版へ・・・
・そしてCurl版へ・・・

**デフォルトの名無しさん** · 2007/07/15(日) 21:05:45

とても楽しめそうにない件について。

**デフォルトの名無しさん** · 2007/07/15(日) 21:19:28

>>27
Perl で書けたのであれば Curl はやらなくて良いと思うよ。
それより書き込みだけじゃなく、スレ立ても出来る様になると嬉しいんじゃない?

**デフォルトの名無しさん** · 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

必死だな。

**デフォルトの名無しさん** · 2007/07/15(日) 22:51:57

何事にも必死に取り組まなければ2ちゃんねらになっちゃう!!

そう子供たちに教えるべきだね。

**デフォルトの名無しさん** · 2007/07/15(日) 23:46:11

ｷﾁｶﾞｲがいるな

**デフォルトの名無しさん** · 2007/07/16(月) 00:13:27

>>36
自己紹介乙！

**test** · 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はダウンロードしやがるぜ。けっ

**デフォルトの名無しさん** · 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;

**デフォルトの名無しさん** · 2007/07/16(月) 21:23:57

Hello World

**デフォルトの名無しさん** · 2007/07/16(月) 21:31:30

なんか資料見つけたので追加
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のフォームから取得できるのはわかるが・・・

**デフォルトの名無しさん** · 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

結局どこいったん＞

**デフォルトの名無しさん** · 2007/07/27(金) 01:20:27

>>60
書き込めるようになって、飽きました。

**デフォルトの名無しさん** · 2007/07/27(金) 01:49:01

他の鯖でも試してみた？

**デフォルトの名無しさん** · 2007/07/27(金) 14:21:01

Hello, World

**ヒッキーの達人** ◆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;
}

**デフォルトの名無しさん** · 2007/07/29(日) 20:40:58

Unrecognized character \x81 at C:/Users/Dai/workspace/PerlTest1/MainTest2.pl line 19.

**デフォルトの名無しさん** · 2007/07/29(日) 20:52:03

ヒント：全角スペース

**デフォルトの名無しさん** · 2007/09/08(土) 00:57:04

このスレは車輪の再発明をするスレのようですね

Age2ch Part14
http://pc11.2ch.net/test/read.cgi/software/1118219419/l50

**デフォルトの名無しさん** · 2007/09/08(土) 14:36:00

みんな車輪の再開発をして技術を身に付けるんだよ。
弟子は師匠の筆の跡を盗むもんだ。

**デフォルトの名無しさん** · 2007/10/04(木) 13:01:14

perlだけでなくrubyやpythonその他
いろいろな言語でこれをするならどれが一番きれいだと思う?

**デフォルトの名無しさん** · 2007/10/05(金) 09:53:41

elisp

**デフォルトの名無しさん** · 2008/01/10(木) 11:13:45

>>22
これってどうやって調べたん？

**デフォルトの名無しさん** · 2008/01/10(木) 12:04:21

hello world

**デフォルトの名無しさん** · 2008/01/10(木) 23:37:44

http://pc11.2ch.net/test/read.cgi/unix/1019380983/

**デフォルトの名無しさん** · 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ぶっこめばいくらでも書き込める。

**デフォルトの名無しさん** · 2008/01/15(火) 05:45:20

うんこ

**デフォルトの名無しさん** · 2008/01/15(火) 05:46:25

うんこ

**デフォルトの名無しさん** · 2008/01/28(月) 11:56:22

てすと

80 · 2008/01/28(月) 12:02:46

すまん
誤爆した。

80 · 2008/01/28(月) 12:04:16

すまん
誤爆した。

80 · 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ｓインストーラパッケージであることを確認してください。』　　と出るのですが
何が問題あるのでしょうか

**うっかり八兵衛** · 2008/03/19(水) 06:04:17

>>86　
インストーラパッケージが壊れていまし。
保存のインスト不良でした
早とちり
で、しまったシマッタ！島倉千恵子！
(;^_^A フキフキ

**デフォルトの名無しさん** · 2008/03/19(水) 07:27:01

とりあえず乙

**デフォルトの名無しさん** · 2008/03/29(土) 00:38:42

>>86
亀レスだがそれはファイルが壊れてるだけ。
俺もこの前WIN再インスコしたときになった。
activeperlのある鯖が不安定っぽいからリジューム機能のついてるツール使ってダウソしたほうがいいよ。

**デフォルトの名無しさん** · 2008/05/14(水) 13:50:09

test

**デフォルトの名無しさん** · 2008/05/16(金) 17:59:54

クライアントがクッキーを受け入れているかどうかってどうやって判断しているんでしょうか？

**デフォルトの名無しさん** · 2008/05/16(金) 20:42:21

食わせたクッキーを吐き出させればいいよ。

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 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;
なんで、これでじゃかきこめないわけ?

**デフォルトの名無しさん** · 2008/09/07(日) 15:18:17

hello world

**デフォルトの名無しさん** · 2008/09/15(月) 20:22:15

ゆきさん、好きだ。

**デフォルトの名無しさん** · 2008/10/10(金) 18:19:28

そんぽぷへるめ

**デフォルトの名無しさん** · 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) ; # 初回投稿時の確認ウィンドウ用

**デフォルトの名無しさん** · 2008/12/10(水) 02:24:59

Hellow World

**デフォルトの名無しさん** · 2008/12/10(水) 02:28:25

test

**デフォルトの名無しさん** · 2008/12/10(水) 02:40:04

Hellow world

**デフォルトの名無しさん** · 2008/12/10(水) 02:44:02

Hellow Fuck!

**名無しさん＠お腹すいた** · 2008/12/10(水) 02:46:30

うんこちんちん

**hage** · 2008/12/10(水) 03:14:51

Hellow Fuck!

**hage** · 2008/12/10(水) 03:26:37

Hellow Fuck!

**hage** · 2008/12/10(水) 03:34:42

Hellow Fuck!

**test** · 2008/12/10(水) 03:35:28

test

**hage** · 2008/12/10(水) 03:36:04

Hellow Fuck!

**hage** · 2008/12/10(水) 05:40:53

Hellow Fuck!

**デフォルトの名無しさん** · 2009/01/19(月) 09:19:05

じゃあ、PHPで書き込むにはどうしたらいいですか？

**デフォルトの名無しさん** · 2009/01/19(月) 11:23:50

>>111
スレ立てました。

PHPを使って２ちゃんねるにHello Worldを書き込む
http://pc11.2ch.net/test/read.cgi/tech/1232331701/l50

**デフォルトの名無しさん** · 2009/01/19(月) 14:16:06

>>112
おお、ありがとうございます！！そのやり方も教えて下さい！！

**デフォルトの名無しさん** · 2009/02/08(日) 18:28:52

じぐもとらせてください

**デフォルトの名無しさん** · 2009/04/09(木) 22:28:09

スレ違い

**デフォルトの名無しさん** · 2009/05/31(日) 23:18:29

WWW::Mechanize使わずにやろうとしたらどうなるんだろう。

**デフォルトの名無しさん** · 2009/06/07(日) 15:00:39

Coco豚肉一辛カレー、ガーリックかけたらおいしかったけれど、全部食べきれなかった。

**デフォルトの名無しさん** · 2009/07/11(土) 12:55:52

Hallo World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:26:21

Hello World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:28:02

Hello World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:39:10

Hello World! ｱﾋｬ

**デフォルトの名無しさん** · 2009/07/11(土) 19:42:16

これならプロバイダ規制受けても書き込みできるな
ｲﾔｯﾎｳ

**デフォルトの名無しさん** · 2009/07/11(土) 22:47:56

helohelo