Perlを使って２ちゃんねるにHello Worldを書き込む
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2007/07/15(日) 16:16:50 俺、がんばる。みてて。
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
それがどうした？
それがどうした？
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【物価高騰】「クリスマスケーキを用意できない」が7割超 炊き出しにも長蛇の列 生活困窮者に厳しい年の瀬が到来 [ぐれ★]
- 【東京】「誰もいないはずの自宅にチェーン錠が…」母親と息子3人の計4人死亡 無理心中か 部屋から血の付いた斧と包丁見つかる 西東京市 [ぐれ★]
- 強制送還されたパキスタン人男性 大臣は配慮を強調したが…「諸般の事情」で権利侵害を押し切る入管のズルさ：東京新聞 [少考さん★]
- 【メモリー高騰】「言葉もない」3カ月で5倍も AIブームで企業取り合い PCも価格上昇か ★3 [ぐれ★]
- 【東京】駅員が屋外に男性放置し通報せず 通行人が通報 搬送後死亡、都営地下鉄大江戸線清澄白河駅 ★2 [ぐれ★]
- 【芸能】浜崎あゆみ、「コンプレックスあった」「安室奈美恵ちゃんはダンスが凄い上手で…MISIAさん、椎名林檎さんはスキルが凄いし」 [冬月記者★]
- 報ステ「官邸幹部の核保有発言、オフレコですが非核三原則は日本の安全保障政策の根幹に関わる問題、報道すべきと判断した」ヤフコメ激怒 [256556981]
- 【高市悲報】ゴールドマン・サックス首席「日本は詰んでます🤗」知ってた🤗 [359965264]
- 【悲報】中国と戦争になったら「プロ野球選手」も徴兵されちゃうの🤨 [616817505]
- 【高市吉報】ＮＩＳＡ枠、２０２７年から６００万円増額決定ｗｍｗｍｗｍｗｍｗｍｗｍｗｍｗｍｗｍｗ【石破悲報】 [517459952]
- 【画像】買ってから一度も使ってないリュックがあるんだけどどう思う？
- もしかして日本人て太平洋戦争で他国を侵略した過去を忘れている？ [472617201]