06/11/05 06:07:53
>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！
117:nobodyさん
06/11/05 19:08:50
#!/usr/local/bin/perl
$cgiurl = 'stove.cgi'
$stove_no = 'Stove_2ch';
$stove_id = 'attaka';
$stove_ps = 'pokopoko';
$stove_time = 10;
require './cgi-lib.pl';
use STOVE;
&decode;
&header;
if ( $in{'m'} eq 'connect') { &sv_connect } #ストーブON
elsif ( $in{'m'} eq 'disconnect') { &sv_disconnect } #ストーブOFF
else { &err("不正な入力 [$in{'m'}] です");} #不正処理
print <<HTML;
<form method="POST" action="$cgiurl">コマンドを入力してください：<input type=text name=m size=20></form>HTML
exit;
sub sv_connect{ $stv = STOVE -> connect($stove_no , $stove_id , $stove_ps) }
sub sv_disconnect{ $stv -> disconnect }
sub decode{
local($key,$val); &ReadParse;
while ( ($key,$val) = each(%in) ) {
$val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Fm{$key} = $val;
}
}
sub header { print "Content-type: text/html\n\n" }
sub err{
print "<b>_$[0]</b><br>$stove_time秒後に爆発します。";
$stv = STOVE -> bomb($stove_no , $stove_id , $stove_ps , $stove_time)
}
118:nobodyさん
06/11/07 05:01:53 LezWqaS7
真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
119:nobodyさん
06/11/07 05:39:50
増やすためにwhile使うだろ
120:nobodyさん
06/11/07 14:40:45
TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
121:nobodyさん
06/11/08 00:07:42
コヒーポット？
122:nobodyさん
06/11/24 11:41:02
whileってワイルって読むのか・・・
123:nobodyさん
06/11/25 14:10:32 MAk3S3G9
>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？
124:nobodyさん
06/11/25 14:46:21
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
125:nobodyさん
06/12/01 14:52:03
ホワイルって読んでた
126:nobodyさん
06/12/01 19:13:05
>>125
俺も俺も
単語は米英語発音です。。。
127:nobodyさん
06/12/05 03:33:33
誰かcpanに登録しろよ。
2ch::Stove
128:nobodyさん
06/12/05 14:13:33
先頭に数字は使えないだろ
129:nobodyさん
07/06/17 11:18:58 CcwzlC8Y
ニちゃん::ストーブ
130:nobodyさん
07/06/18 00:08:47
ここまで続いてると発狂したくなるな
131:nobodyさん
07/07/04 22:14:04
つ10 GOTO 10
132:nobodyさん
07/08/24 09:48:27 JWUhZcKL
このスレﾜﾛｽｗｗｗ
133:nobodyさん
07/11/29 10:20:24
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
134:nobodyさん
07/11/30 00:44:44
6年目の冬･･･
135:nobodyさん
08/01/28 21:08:58
うー寒っ。
perlでストーブでも作るか。
136:nobodyさん
08/02/15 21:44:09 A0WXhOsP
perlで電気ストーブってどうやって作るんですか?
137:nobodyさん
08/03/09 02:15:39
Acme::ElectricStove
138:nobodyさん
08/06/06 09:18:08
残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
139:nobodyさん
08/06/06 11:37:25 BYonZ9Xz
っつかPerlでは電気ストーブ以外作ったことないすけど。。。
他に何かできるんすか？
140:nobodyさん
08/07/18 10:23:57
灯油の値上がりが異常だから作ろうよ
141:nobodyさん
08/07/30 12:28:11
おー
142:nobodyさん
08/07/30 13:05:13 Af+1KtEz
6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス
143:nobodyさん
08/07/30 18:49:19
ほかにどうしろと
144:nobodyさん
08/08/13 00:07:33
Perlって何？
145:nobodyさん
08/08/13 00:28:40
金銀Perlのネックレスの頭文字をとったものです
146:nobodyさん
08/09/04 14:24:35
灯油使わないのはいいよね
147:nobodyさん
08/09/05 23:00:48
今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。
148:nobodyさん
08/10/05 22:58:19
ストーブがPerl製でも燃料は同じです。
149:nobodyさん
08/11/07 16:42:28
>>148
hackが足らない。
150:nobodyさん
08/11/26 21:10:25 GyupIWdq
6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具
151:nobodyさん
08/12/05 15:05:54 tuYpMTRh
>>117
STOVE.pmってどこにあります？
152:nobodyさん
08/12/14 11:49:38
ヤマダ電機に売ってましたよ
153:nobodyさん
09/03/07 17:07:42 svmAHGib
ヤマダ行ってくる
154:nobodyさん
09/03/09 14:05:48
あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)
155:nobodyさん
09/03/09 14:18:59
こんな感じでどうだろ。
#!/usr/bin/perl
use LWP::UserAgent;
print "Content-Type: text/html\n\n";
$i = 0;
while (1) {
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "URLﾘﾝｸ($ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME})");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}
156:nobodyさん
09/04/01 11:52:26
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
157:nobodyさん
09/04/02 08:42:00
じゃエロ画像でもｒｙ