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

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2007/07/15(日) 16:16:50
俺、がんばる。みてて。
2007/07/16(月) 00:13:27
>>36
自己紹介乙！
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はダウンロードしやがるぜ。けっ
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
結局どこいったん＞
61デフォルトの名無しさん
垢版 |
2007/07/27(金) 01:20:27
>>60
書き込めるようになって、飽きました。
2007/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;
}
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
このスレは車輪の再発明をするスレのようですね

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
71デフォルトの名無しさん
垢版 |
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
てすと
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ｓインストーラパッケージであることを確認してください。』　　と出るのですが
何が問題あるのでしょうか
2008/03/19(水) 06:04:17
>>86　
インストーラパッケージが壊れていまし。
保存のインスト不良でした
早とちり
で、しまったシマッタ！島倉千恵子！
(;^_^A フキフキ
2008/03/19(水) 07:27:01
とりあえず乙
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
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;
なんで、これでじゃかきこめないわけ?
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) ; # 初回投稿時の確認ウィンドウ用

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
うんこちんちん
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:50
>>111
スレ立てました。

PHPを使って２ちゃんねるにHello Worldを書き込む
http://pc11.2ch.net/test/read.cgi/tech/1232331701/l50
113デフォルトの名無しさん
垢版 |
2009/01/19(月) 14:16:06
>>112
おお、ありがとうございます！！ そのやり方も教えて下さい！！
114デフォルトの名無しさん
垢版 |
2009/02/08(日) 18:28:52
じぐもとらせてください
2009/04/09(木) 22:28:09
スレ違い
2009/05/31(日) 23:18:29
WWW::Mechanize使わずにやろうとしたらどうなるんだろう。
117デフォルトの名無しさん
垢版 |
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
2009/07/22(水) 20:56:08
hello worldｗｗ
2009/07/22(水) 20:58:49
hello worldｗｗ
2009/07/22(水) 20:59:30
hello worldｗｗ
2009/07/22(水) 21:00:12
hello worldｗｗ
2009/07/22(水) 21:09:14
teest
2009/07/22(水) 21:12:00
test2
2009/07/22(水) 21:15:49
hello world??
2009/07/22(水) 21:17:59
test
2009/07/22(水) 21:18:06
hello world??
2009/07/22(水) 21:23:40
てｓｔ
2009/07/22(水) 21:43:07
てｓｔ
2009/07/23(木) 17:33:47
test
2009/07/23(木) 17:48:11
test
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況