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

**名無しさん＠お腹いっぱい。** · 02/01/09 22:35

俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。

**名無しさん＠お腹いっぱい。** · 02/01/11 00:29

あまり面白くないね

**nobodyさん** · 02/03/19 13:04

もうストーブ片づけないとなあ

**nobodyさん** · 02/03/19 13:32

>>17
全然面白くねえよ。

**nobodyさん** · 02/03/19 14:00

負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。

**nobodyさん** · 02/03/19 14:18

1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。

**nobodyさん** · 02/03/19 23:09

アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。

a · 02/03/21 15:17

>>19にﾜﾛﾀ。

**nobodyさん** · 02/03/25 20:38

来年の冬までこのスレ残ってるんだろうなぁ。

**nobodyさん** · 02/03/25 21:05

>>24
そのときになったら俺があげてやるYO!

**nobodyさん** · 02/03/25 21:08

冬までにシネ

**nobodyさん** · 02/03/27 21:07

>>22
その前にAthlonが壊れるぞ

**nobodyさん** · 02/07/13 14:39

perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？

**nobodyさん** · 02/08/08 22:43

あげ

**nobodyさん** · 02/08/08 22:58

>29

>>25
?

**nobodyさん** · 02/08/08 23:49

>>30
?

**nobodyさん** · 02/09/04 13:38

冬まで保守するぞ

**nobodyさん** · 02/10/20 18:18

ﾎｯｼｭﾎｯｼｭ

**nobodyさん** · 02/11/04 13:43

11月ですが、何か?

◆mFK66iWE8c · 02/11/05 04:21

もうすぐ冬ですね

**名無しバサー** · 02/12/21 05:27

冬やぞ～

**山崎渉** · 03/01/15 13:46

（＾＾）

**山崎渉** · 03/03/13 17:47

（＾＾）

**nobodyさん** · 03/03/15 02:53

Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？

**nobodyさん** · 03/03/31 22:36

>>39
オムライスならソースよりケチャップがいいな

39 · 03/04/01 23:00

>>40
ナイス突っ込み39

**山崎渉** · 03/04/17 12:15

（＾＾）

**山崎渉** · 03/04/20 06:19

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**山崎渉** · 03/05/22 02:19

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

**山崎渉** · 03/05/28 17:10

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

**山崎渉** · 03/07/15 11:23

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

**山崎渉** · 03/08/02 02:29

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 05:04

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

**山崎渉** · 03/08/15 23:24

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

**nobodyさん** · 03/12/27 07:35

>>24-25
ageとくよ。

**nobodyさん** · 03/12/27 12:58

優良スレage

**nobodyさん** · 03/12/27 18:07

できた！

while(1) {$i++}

CPUに負荷がかかって温度が上がり、暖房として使えるようになります。

**nobodyさん** · 04/01/05 19:22

Perlで電気グルーブも誰か作ってんか

**nobodyさん** · 04/01/07 18:44

>>52
>>8でガイシュツ

**nobodyさん** · 04/01/09 07:33

>>52
もう少しおもしろいこと言って欲しかったです

**nobodyさん** · 04/01/09 21:39

>>52
72分ぐらい笑ったぞ！責任取れ！がははｈ

**nobodyさん** · 04/01/10 01:08

52==56

**nobodyさん** · 04/01/15 16:15

早く作らないと冬が終わるぞ
>>1

◆D5Hate7SLg · 04/01/27 01:59

寒いよー

**nobodyさん** · 04/02/15 11:24

また来年。

**nobodyさん** · 04/03/20 09:44

何度でもよみがえる

**たかの沙ｙ秦** · 04/03/23 13:47

age

**nobodyさん** · 04/04/08 18:26

“負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。

**nobodyさん** · 04/04/09 08:17

>>63
電気ストーブは負荷をかけて温度を上げてます。

**nobodyさん** · 04/04/22 10:49

while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';

**nobodyさん** · 04/05/01 22:53

残念ながらperlでストーブを作ることはできない。
phpならできるだろう。

**nobodyさん** · 04/05/01 23:46

>>65
ヘアドライヤーになるかも。

**nobodyさん** · 04/05/11 21:19

電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。

以下ソース
#!/Perl/bin/perl

@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$QUERY{$name} = $value;
};
if ($QUERY{'O N'} eq 'ON') {
$heater = '#ff6666';
}
else{$heater = '#ffcccc';}
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"><html><head><meta http-equiv=\"content-type\" content=\"text/html; charset=Shift_JIS\"><title>stove</title></head><body>\n";
print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"1\" width=\"250\">\n";
print "<tbody><tr>\n";
print "<td valign=\"top\" width=\"25\" rowspan=\"6\" colspan=\"1\" bgcolor=\"#ffffcc\"><br></td>\n";
print "<td valign=\"top\" width=\"10\" rowspan=\"1\" colspan=\"8\"><br></td>\n";
print "<td valign=\"top\" width=\"25\" bgcolor=\"#ffffcc\" rowspan=\"6\" colspan=\"1\"><br>\n";
print "<form method=\"get\" action=\"../cgi-bin/stove.pl\" >\n";
print "<center><input type=\"submit\" name=\"ON\" value=\"O N\"></center><br>\n";
print "<center><input type=\"submit\" name=\"OFF\" value=\"OFF\"></center><br>\n";
print "</form></td></tr>\n";
print "<tr>\n";

以下続く。

**nobodyさん** · 04/05/11 21:20

ソースの続き。

for (1..8){
print "<td valign=\"top\" width=\"10\" height=\"20\"><br></td>\n";
}
print "</tr><tr>\n";
for (1..8){
print "<td valign=\"top\" width=\"10\" bgcolor=\"$heater\"><br></td>\n";
}
print "</tr><tr>\n";
for (1..8){
print "<td valign=\"top\" width=\"10\" height=\"20\"><br></td>\n";
}
print "</tr><tr>\n";
print "<td valign=\"top\" width=\"10\" rowspan=\"1\" colspan=\"8\"><br></td></tr></tbody></table>\n";
print "<br></body></html>\n";

**nobodyさん** · 04/05/13 20:20

Perlじゃ無理だよ　遅いから・・・。

**nobodyさん** · 04/05/18 04:48

超負荷をかけて無限ループ
　　　　　　　＆
CPUファン等の冷却装置をはずす。

ほっかほか。(*´д`*)ｱﾊｧ

**nobodyさん** · 04/05/18 05:10

ファンがないと熱風出ないだろ。

**名無しさん＠Linuxザウルス** · 04/05/18 20:17

まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ

**名無しさん** · 04/05/18 20:21

電気ストーブ完成版
#!/Perl/bin/perl

print "Content-type: text/html", "\n\n";

@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$QUERY{$name} = $value;
};
if ($QUERY{'ON'} eq 'ON'){$heater = '#ff6666';}else{$heater = '#ffcccc';
}
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"><html>\n";
print "<head><meta http-equiv=\"content-type\" content=\"text/html; charset=Shift_JIS\"><title>stove</title></head><body>\n";
print "<table cellpadding=\"0\" cellspacing=\"0\" border=\"1\" width=\"250\"><tbody><tr>\n";
print "<td valign=\"top\" width=\"25\" rowspan=\"6\" colspan=\"1\" bgcolor=\"#ffffcc\"><br></td>\n";
print "<td valign=\"top\" width=\"10\" rowspan=\"1\" colspan=\"8\"><br></td>\n";
print "<td valign=\"top\" width=\"25\" bgcolor=\"#ffffcc\" rowspan=\"6\" colspan=\"1\"><br>\n";
print "<form method=\"get\" action=\"../cgi-bin/stove.pl\" >\n";
print "<center><input type=\"submit\" name=\"ON\" value=\"ON\"></center><br>\n";
print "<center><input type=\"submit\" name=\"OFF\" value=\"OFF\"></center><br>\n";
print "</form></td></tr><tr>\n";
つづく

**名無しさん** · 04/05/18 20:22

電気ストーブ完成版
つづき
for (1..8){print "<td valign=\"top\" width=\"10\" height=\"20\"><br></td>\n";
}
print "</tr><tr>\n";
for (1..8){print "<td valign=\"top\" width=\"10\" bgcolor=\"$heater\"><br></td>\n";
}
print "</tr><tr>\n";
for (1..8){print "<td valign=\"top\" width=\"10\" height=\"20\"><br></td>\n";
}
print "</tr><tr>\n";
print "<td valign=\"top\" width=\"10\" rowspan=\"1\" colspan=\"8\"><br></td></tr></tbody></table>\n";
print "<br></body></html>\n";

**nobodyさん** · 04/05/22 03:25

実際動くところを見せておくれ。
机上の空論になっとる。

**nobodyさん** · 04/05/30 19:58

perl -e '`make stove`'

**nobodyさん** · 04/05/30 22:38

#!/Perl/bin/perl

while(1)
{
print "あったかほかほか\n";
}

#CPUから暖かい熱が出てきます。

**nobodyさん** · 04/05/30 23:57

while(1) {
fork;
print("あっかたーい");
}

**nobodyさん** · 04/05/31 01:47

forkはちょっと違うような…

**nobodyさん** · 04/10/02 11:16:52

電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。

**nobodyさん** · 05/01/11 05:35:23

3年・・・

**nobodyさん** · 05/01/14 14:20:44

ああ、あれから3年経ったな。

**nobodyさん** · 05/03/13 18:46:07

そして２ヵ月後…

**nobodyさん** · 05/03/14 06:52:38

3回目の冬もオワタな

**nobodyさん** · 05/03/16 12:46:11

な、なんだこのスレは！激しくﾜﾛﾀよ

**nobodyさん** · 05/03/16 14:50:48

electricstove://www.foobar.st/

**nobodyさん** · 2005/10/03(月) 00:54:00

Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。

そんなわけで私は地名の方を調べてきます...

**nobodyさん** · 2005/10/03(月) 01:46:11

まだあったのかよ・・・

**nobodyさん** · 2005/10/06(木) 13:25:51

AtomAPI で操作できる電気ストーブにしたら便利じゃね？

**nobodyさん** · 2005/10/06(木) 13:29:17

あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．

来るべく冬に備えて，そろそろこのプロジェクト始動しないと．

**nobodyさん** · 2005/10/06(木) 19:26:43

**nobodyさん** · 2005/12/16(金) 14:59:13

ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!

**nobodyさん** · 2005/12/16(金) 15:00:18

ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ

**nobodyさん** · 2005/12/16(金) 15:06:33

ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ

**nobodyさん** · 2005/12/18(日) 01:58:04

　　/＼__,ﾍ,
　ﾉノﾉﾉハヽ
　リﾉ‘ヮ‘ﾘﾉ
　（(^)uu(^)

**nobodyさん** · 2005/12/24(土) 18:19:51

　.○⌒＼
　.(二二二)
.__（　´ⅴ｀）
/ .ｏ　　　つ
(＿;し―Ｊ

**nobodyさん** · 2005/12/24(土) 18:21:03

　.○⌒＼
　.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ　　　つ
(＿;し―Ｊ

**nobodyさん** · 2005/12/25(日) 21:55:41

○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ

**nobodyさん** · 2005/12/29(木) 17:19:57

　　　　　☆ノﾉハヽ
　　　　　リﾉ‘ヮ‘ﾘﾉ＜
　　　　　(l]つ：)]つ
　　　　　く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)

**nobodyさん** · 2006/01/06(金) 19:03:58

ﾉノﾉﾉハヽ　　
川`･_･´)||　
ノ/　/L
ノ￣ゝ　　　

**nobodyさん** · 2006/01/07(土) 11:40:38

こたつをprintしよう

**nobodyさん** · 2006/01/07(土) 18:07:56

仕事でperl使ってる手前、おかしくて仕方が無いｗ

**nobodyさん** · 2006/01/07(土) 18:20:36

マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。

**nobodyさん** · 2006/01/08(日) 21:08:56

>>1
昔仕事で作ったやつだけど、どうぞ。

#!/usr/bin/perl

use strict;
use Jcode;
use danbou;

my $obj = danbou->new;

print "Content-type: text/html\n\n";

#コタツ利用
print Jcode->new($obj->japanese_kotatsu)->euc;

##ストーブ利用
#print Jcode->new($obj->stove)->euc;

print '(ﾟдﾟ)ｳﾏｰ';

exit;

**nobodyさん** · 2006/01/12(木) 13:41:36

>>105
WebProg板だけに、サーバサイドスクリプトなのね。

**nobodyさん** · 2006/01/26(木) 10:56:37

Perlを暴走させて、発熱させたＰＣをコタツにするのですか？

**nobodyさん** · 2006/03/09(木) 16:28:39

プレスコットで電気ストーブを作ってみないか？

**nobodyさん** · 2006/03/09(木) 22:03:38

発熱させるのはPCだからPCでストーブを作ったことになるのでは？

**nobodyさん** · 2006/03/09(木) 22:40:37

Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？

椎名 · 2006/11/02(木) 22:12:48

金の亡者

**nobodyさん** · 2006/11/02(木) 23:01:32

PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら

**nobodyさん** · 2006/11/02(木) 23:55:22

PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。

さぁ！これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ！

CPU：最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU：対応している物で最も高性能な物にしておけば特に問題はない。
HDD：RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源：恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン：高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。

そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”！
・熱を外に逃がさず蓄えるための”コタツ布団”！
うん、僕はコタツ派なんだ許しておくれ。

この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。

**nobodyさん** · 2006/11/05(日) 06:04:34

ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。

**nobodyさん** · 2006/11/05(日) 06:05:09

sage忘れた。sage

**nobodyさん** · 2006/11/05(日) 06:07:53

>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！

**nobodyさん** · 2006/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)
}