トップページ⇒php
165コメント32KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。02/01/09 22:35ID:???
俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
0002名無しさん＠お腹いっぱい。02/01/09 22:43ID:???
>>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
0003名無しさん＠お腹いっぱい。02/01/10 00:15ID:???
でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ（泣
# 板違いな話題になりそうだからsage
0004名無しさん＠お腹いっぱい。02/01/10 00:22ID:???
>>1
どこで調べたの？
0005　　　　02/01/10 00:41ID:???
ところでコタツのコードは、なんで布巻いてあんの？
0006名無しさん＠お腹いっぱい。02/01/10 00:50ID:ShbLA3VA
あげ
0007名無しさん＠お腹いっぱい。02/01/10 01:09ID:???
>>5
断線防止でしょうよ。あと、発火防止。
0008中禅寺02/01/10 05:42ID:xa3BQJm5
while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
0009名無しさん＠お腹いっぱい。02/01/10 06:17ID:???
>5
触るとなんかホッとするじゃん。だからだよ。
0010名無しさん＠お腹いっぱい。02/01/10 08:13ID:oeInymHK
>>1 は、寒かったのでしょうか
0011名無しさん＠お腹いっぱい。02/01/10 09:18ID:6z++Gsnn
>1　ｿｰｽ出してよ！
0012名無しさん＠お腹いっぱい。02/01/10 10:30ID:???
>>11 カレーにソース入れる派なのか。
0013 02/01/10 11:17ID:???
カレーにソース入れて旨い？
0014名無しさん＠Ｅｍａｃｓ02/01/10 11:41ID:???
電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
0015これならでけた02/01/10 13:33ID:???
Perlでロボットを動かしてストーブを作るのはセーフ？
0016ヽ(´▽｀)/へへっ02/01/10 23:42ID:XTHY1MVd
結構簡単ジャン。
#!/usr/2ch/nel

print <<"EOF";
Content-type: text/html

おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番で逝こうと思ってる来てるからな。
EOF
exit;
0017名無しさん＠お腹いっぱい。02/01/11 00:29ID:???
あまり面白くないね
0018nobodyさん02/03/19 13:04ID:???
もうストーブ片づけないとなあ
0019nobodyさん02/03/19 13:32ID:???
>>17
全然面白くねえよ。
0020nobodyさん02/03/19 14:00ID:JCJlraCw
負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
0021nobodyさん02/03/19 14:18ID:???
1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
0022nobodyさん02/03/19 23:09ID:Uem1heHb
アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
0023a02/03/21 15:17ID:???
>>19にﾜﾛﾀ。
0024nobodyさん02/03/25 20:38ID:???
来年の冬までこのスレ残ってるんだろうなぁ。
0025nobodyさん02/03/25 21:05ID:U1PPo9Xf
>>24
そのときになったら俺があげてやるYO!
0026nobodyさん02/03/25 21:08ID:???
冬までにシネ
0027nobodyさん02/03/27 21:07ID:8XoneYAB
>>22
その前にAthlonが壊れるぞ
0028nobodyさん02/07/13 14:39ID:???
perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
0029nobodyさん02/08/08 22:43ID:xShKUXBU
あげ
0030nobodyさん02/08/08 22:58ID:???
>29

>>25
?
0031nobodyさん02/08/08 23:49ID:+DvHmUlZ
>>30
?
0032nobodyさん02/09/04 13:38ID:???
冬まで保守するぞ
0033nobodyさん02/10/20 18:18ID:???
ﾎｯｼｭﾎｯｼｭ
0034nobodyさん02/11/04 13:43ID:???
11月ですが、何か?
0035 ◆mFK66iWE8c 02/11/05 04:21ID:???
もうすぐ冬ですね
0036名無しバサー02/12/21 05:27ID:???
冬やぞ～
0037山崎渉03/01/15 13:46ID:???
（＾＾）
0038山崎渉03/03/13 17:47ID:???
（＾＾）
0039nobodyさん03/03/15 02:53ID:???
Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
0040nobodyさん03/03/31 22:36ID:???
>>39
オムライスならソースよりケチャップがいいな
00413903/04/01 23:00ID:???
>>40
ナイス突っ込み39
0042山崎渉03/04/17 12:15ID:???
（＾＾）
0043山崎渉03/04/20 06:19ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0044山崎渉03/05/22 02:19ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
0045山崎渉03/05/28 17:10ID:???
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0046山崎 渉03/07/15 11:23ID:???

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
0047山崎 渉03/08/02 02:29ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0048ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:04ID:???
　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
0049山崎 渉03/08/15 23:24ID:???
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
0050nobodyさん03/12/27 07:35ID:???
>>24-25
ageとくよ。
0051nobodyさん03/12/27 12:58ID:D74m3gSA
優良スレage
0052nobodyさん03/12/27 18:07ID:???
できた！

while(1) {$i++}


CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
0053nobodyさん04/01/05 19:22ID:siolyDpc
Perlで電気グルーブも誰か作ってんか
0054nobodyさん04/01/07 18:44ID:???
>>52
>>8でガイシュツ
0055nobodyさん04/01/09 07:33ID:???
>>52
もう少しおもしろいこと言って欲しかったです
0056nobodyさん04/01/09 21:39ID:5rm0Ms8m
>>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
0057nobodyさん04/01/10 01:08ID:???
52==56
0058nobodyさん04/01/15 16:15ID:???
早く作らないと冬が終わるぞ
>>1
0059 ◆D5Hate7SLg 04/01/27 01:59ID:???
寒いよー
0060nobodyさん04/02/15 11:24ID:???
また来年。
0061nobodyさん04/03/20 09:44ID:???
何度でもよみがえる
0062たかの沙ｙ秦04/03/23 13:47ID:i7wFRGEl
age
0063nobodyさん04/04/08 18:26ID:???
“負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
0064nobodyさん04/04/09 08:17ID:???
>>63
電気ストーブは負荷をかけて温度を上げてます。
0065nobodyさん04/04/22 10:49ID:???
while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
0066nobodyさん04/05/01 22:53ID:???
残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
0067nobodyさん04/05/01 23:46ID:???
>>65
ヘアドライヤーになるかも。
0068nobodyさん04/05/11 21:19ID:???
電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。

以下ソース
#!/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";

以下続く。
0069nobodyさん04/05/11 21:20ID:???
ソースの続き。

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";
0070nobodyさん04/05/13 20:20ID:???
Perlじゃ無理だよ　遅いから・・・。
0071nobodyさん04/05/18 04:48ID:HwISgAOU
超負荷をかけて無限ループ
　　　　　　　＆
CPUファン等の冷却装置をはずす。

ほっかほか。(*´д`*)ｱﾊｧ
0072nobodyさん04/05/18 05:10ID:???
ファンがないと熱風出ないだろ。
0073名無しさん＠Linuxザウルス04/05/18 20:17ID:i3QZMTMG
まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
0074名無しさん04/05/18 20:21ID:i3QZMTMG
電気ストーブ完成版
#!/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";
つづく
0075名無しさん04/05/18 20:22ID:i3QZMTMG
電気ストーブ完成版
つづき
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";
0076nobodyさん04/05/22 03:25ID:ZuxEnrYy
実際動くところを見せておくれ。
机上の空論になっとる。
0077nobodyさん04/05/30 19:58ID:KEV3OJXn
perl -e '`make stove`'
0078nobodyさん04/05/30 22:38ID:???
#!/Perl/bin/perl

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


#CPUから暖かい熱が出てきます。
0079nobodyさん04/05/30 23:57ID:zsGUscii
while(1) {
fork;
print("あっかたーい");
}
0080nobodyさん04/05/31 01:47ID:???
forkはちょっと違うような…
0081nobodyさん04/10/02 11:16:52ID:???
電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
0082nobodyさん05/01/11 05:35:23ID:d1wYSRf9
3年・・・
0083nobodyさん05/01/14 14:20:44ID:???
ああ、あれから3年経ったな。
0084nobodyさん05/03/13 18:46:07ID:yV0EPN+6
そして２ヵ月後…
0085nobodyさん05/03/14 06:52:38ID:???
3回目の冬もオワタな
0086nobodyさん05/03/16 12:46:11ID:???
な、なんだこのスレは！激しくﾜﾛﾀよ
0087nobodyさん05/03/16 14:50:48ID:???
electricstove://www.foobar.st/
0088nobodyさん2005/10/03(月) 00:54:00ID:umVesKWU
Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。

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

0089nobodyさん2005/10/03(月) 01:46:11ID:RYS/0is/
まだあったのかよ・・・
0090nobodyさん2005/10/06(木) 13:25:51ID:Yi8E4LoQ
AtomAPI で操作できる電気ストーブにしたら便利じゃね？
0091nobodyさん2005/10/06(木) 13:29:17ID:???
あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．

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

0092nobodyさん2005/10/06(木) 19:26:43ID:kKdAE9DW
<font face="Webdings" size="5" color="black">Y</font>
0093nobodyさん2005/12/16(金) 14:59:13ID:???
ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
0094nobodyさん2005/12/16(金) 15:00:18ID:???
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
0095nobodyさん2005/12/16(金) 15:06:33ID:???
ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
0096nobodyさん2005/12/18(日) 01:58:04ID:???
　　/＼__,ﾍ,
　 ﾉノﾉﾉハヽ
　 リﾉ‘ヮ‘ﾘﾉ
　 （(^)uu(^)
0097nobodyさん2005/12/24(土) 18:19:51ID:???
　.○⌒＼
　.(二二二)
.__（　´ⅴ｀）
/ .ｏ　　　つ
(＿;し―Ｊ
0098nobodyさん2005/12/24(土) 18:21:03ID:???
　.○⌒＼
　.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ　　　つ
(＿;し―Ｊ
0099nobodyさん2005/12/25(日) 21:55:41ID:???
○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
0100nobodyさん2005/12/29(木) 17:19:57ID:???
　　　　　☆ノﾉハヽ
　　　　　リﾉ‘ヮ‘ﾘﾉ ＜
　　　　　(l]つ：)]つ
　　　　　く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
0101nobodyさん2006/01/06(金) 19:03:58ID:???
ﾉノﾉﾉハヽ　　
川`･_･´)||　
ノ/　/L
ノ￣ゝ　　　
■ このスレッドは過去ログ倉庫に格納されています