探検
Perlを使って２ちゃんねるにHello Worldを書き込む
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2007/07/15(日) 16:16:50 俺、がんばる。みてて。
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!!!
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【給食無償化】国が全額負担 自維公3党、近く合意へ★2 [ぐれ★]
- 【サッカー】Jリーグ、43億円の赤字予算を承認 ★2 [鉄チーズ烏★]
- 40代教員、1億8600万円分の暗号資産だまし取られる 「警察手帳のような物」見せられ−滋賀県草津市 [蚤の市★]
- 上野動物園の双子パンダ、1月末に中国に返還へ 国内でパンダ不在に ★4 [蚤の市★]
- 【ラブホ】小川晶前市長、出直し立候補意向 周囲に伝達 群馬・前橋市長選 [ぐれ★]
- なだぎ武、イベントチケットが売れず悲鳴「10枚しか売れておりません」 [muffin★]
- しっとり歌い上げる系地下アイドルの供給が増えてもいいんじゃないか
- 維新・吉村はん「国民よ思い出せ！ 悪夢の民主党時代を！！」 [592058334]
- 女子トイレに浸入→自作の張り紙を勝手に設置→その裏に録画状態のスマホをセットし盗撮した男を逮捕
- 楽しく生きると決めたんだが
- レズだけどひま
- 日本、ガチで終焉。資材高騰と人手不足で全国各地で再開発ストップwwwwwwwwwwwwwwwww [271912485]