Perlで電気ストーブを作る方法

#!/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)
}

真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。

増やすためにwhile使うだろ

TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです

コヒーポット？

whileってワイルって読むのか・・・

>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？

段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

ホワイルって読んでた

>>125
俺も俺も
単語は米英語発音です。。。

誰かcpanに登録しろよ。

2ch::Stove

先頭に数字は使えないだろ

ニちゃん::ストーブ

ここまで続いてると発狂したくなるな

つ10 GOTO 10

このスレﾜﾛｽｗｗｗ

段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

6年目の冬･･･

うー寒っ。
perlでストーブでも作るか。

perlで電気ストーブってどうやって作るんですか?

Acme::ElectricStove

残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください

っつかPerlでは電気ストーブ以外作ったことないすけど。。。

他に何かできるんすか？

灯油の値上がりが異常だから作ろうよ

おー

6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス

ほかにどうしろと

Perlって何？

金銀Perlのネックレスの頭文字をとったものです

灯油使わないのはいいよね

今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。

ストーブがPerl製でも燃料は同じです。

>>148
hackが足らない。

6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具

>>117
STOVE.pmってどこにあります？

ヤマダ電機に売ってましたよ

ヤマダ行ってくる

あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)

こんな感じでどうだろ。

#!/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 => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME}");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}

俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。

じゃエロ画像でもｒｙ

このスレまだあったのか！
最後の書き込みから、1年以上経ってるしｗ

はっきり言って、Perlはすでに冷たくなっているんだが...

>>117
うはｗｗｗ　まだあったんかこれ
昔書いたコードがｗｗｗくそショボイｗｗｗｗ

いまさらなにいてんだ！おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ！

真珠のネックレスもPerlなんだよ！

理論的には作れる！間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。

捕手

おう

エラー：灯油が切れています！