探検
Perlを使って２ちゃんねるにHello Worldを書き込む
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2007/07/15(日) 16:16:50 俺、がんばる。みてて。
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
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 官邸幹部「日本は核兵器保有すべき」 政権内の議論は「ない」と説明 [どどん★]
- 年収の壁で総理と玉木代表が合意 178万円まで引き上げ 年収665万円以下が対象 ★2 [どどん★]
- 胸を強調した女性アニメキャラをファミレスがコラボ企画で起用。「この表現はどうなのか」SNSで疑問の声 ★2 [少考さん★]
- 米トランプ政権、台湾に過去最大、1兆7000億円の武器売却 対ロシアで威力発揮したハイマース「台湾の安全保障」 [お断り★]
- 【芸能】笑い飯・哲夫 『THE W』の審査員「次からもう断ろうかな…」 粗品とのコメント回数の差にあ然 カンペで指示が出ている [冬月記者★]
- 【芸能】須田亜香里、結婚相手に求める年収は『2000万円』 「どっちかが病気しても安心」「都内で車を持ってる方は安定した収入ある」 [冬月記者★]
- 【実況】博衣こよりのえちえちスーパーダンガンロンパ6🧪
- 【悲報】cis「海外短期売買の税率を10％程度に下げて世界で活躍させろ、日本個人投資家は世界的にみて化け物レベル、効率的で国益 [733893279]
- ちょっと待って！✋😠今とうすこしてる時間、本当に必要ですか？🤔🏡
- 【速報】高市官邸幹部「日本は核兵器保有すべき」 [115996789]
- 千晴寝ろや肌に悪い
- 【悲報】フィンランド女議員「吊り目ポーズやめろ？『キャンセルカルチャー』にはもうウンザリ……(吊り目ポーズでﾊﾟｼｬｯ」 [839150984]