1read 100read
2011年10月1期WebProgPerlで電気ストーブを作る方法
TOP カテ一覧 スレ一覧 削除依頼 ▼
・ 次のスレ
こんなの作ってみたんだけど・・・
あめぞう型掲示板 ２【厨房隔離スレ】
アパッチが動かねんだよ！！タコ
【Java PHP CGI mod_perl】の使い分け for プロ
Perlで電気ストーブを作る方法
- 1 ：02/01/09 ～ 最終レス ：10/06/09
- 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 2 ：
- >>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 3 ：
- でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ（泣
# 板違いな話題になりそうだからsage
- 4 ：
- >>1
どこで調べたの？
- 5 ：
- ところでコタツのコードは、なんで布巻いてあんの？
- 6 ：
- あげ
- 7 ：
- >>5
断線防止でしょうよ。あと、発火防止。
- 8 ：
- while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
- 9 ：
- >5
触るとなんかホッとするじゃん。だからだよ。
- 10 ：
- >>1 は、寒かったのでしょうか
- 11 ：
- >1 ｿｰｽ出してよ！
- 12 ：
- >>11 カレーにソース入れる派なのか。
- 13 ：
- カレーにソース入れて旨い？
- 14 ：
- 電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
- 15 ：
- Perlでロボットを動かしてストーブを作るのはセーフ？
- 16 ：
- 結構簡単ジャン。
#!/usr/2ch/nel
print <<"EOF";
Content-type: text/html
おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番でこうと思ってる来てるからな。
EOF
exit;
- 17 ：
- あまり面白くないね
- 18 ：
- もうストーブ片づけないとなあ
- 19 ：
- >>17
全然面白くねえよ。
- 20 ：
- 負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
- 21 ：
- 1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
- 22 ：
- アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
- 23 ：
- >>19にﾜﾛﾀ。
- 24 ：
- 来年の冬までこのスレ残ってるんだろうなぁ。
- 25 ：
- >>24
そのときになったら俺があげてやるYO!
- 26 ：
- 冬までにシネ
- 27 ：
- >>22
その前にAthlonが壊れるぞ
- 28 ：
- perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
- 29 ：
- あげ
- 30 ：
- >29
>>25
?
- 31 ：
- >>30
?
- 32 ：
- 冬まで保守するぞ
- 33 ：
- ﾎｯｼｭﾎｯｼｭ
- 34 ：
- 11月ですが、何か?
- 35 ：
- もうすぐ冬ですね
- 36 ：
- 冬やぞ～
- 37 ：
- （＾＾）
- 38 ：
- （＾＾）
- 39 ：
- Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
- 40 ：
- >>39
オムライスならソースよりケチャップがいいな
- 41 ：
- >>40
ナイス突っ込み39
- 42 ：
- （＾＾）
- 43 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 44 ：
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 45 ：
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 46 ：
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 47 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 48 ：
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 49 ：
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 50 ：
- >>24-25
ageとくよ。
- 51 ：
- 優良スレage
- 52 ：
- できた！
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
- 53 ：
- Perlで電気グルーブも誰か作ってんか
- 54 ：
- >>52
>>8でガイシュツ
- 55 ：
- >>52
もう少しおもしろいこと言って欲しかったです
- 56 ：
- >>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
- 57 ：
- 52==56
- 58 ：
- 早く作らないと冬が終わるぞ
>>1
- 59 ：
- 寒いよー
- 60 ：
- また来年。
- 61 ：
- 何度でもよみがえる
- 62 ：
- age
- 63 ：
- “負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
- 64 ：
- >>63
電気ストーブは負荷をかけて温度を上げてます。
- 65 ：
- while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
- 66 ：
- 残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
- 67 ：
- >>65
ヘアドライヤーになるかも。
- 68 ：
- 電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。
以下ソース
#!/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";
以下続く。
- 69 ：
- ソースの続き。
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";
- 70 ：
- Perlじゃ無理だよ 遅いから・・・。
- 71 ：
- 超負荷をかけて無限ループ
＆
CPUファン等の冷却装置をはずす。
ほっかほか。(*´д`*)ｱﾊｧ
- 72 ：
- ファンがないと熱風出ないだろ。
- 73 ：
- まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
- 74 ：
- 電気ストーブ完成版
#!/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";
つづく
- 75 ：
- 電気ストーブ完成版
つづき
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";
- 76 ：
- 実際動くところを見せておくれ。
机上の空論になっとる。
- 77 ：
- perl -e '`make stove`'
- 78 ：
- #!/Perl/bin/perl
while(1)
{
print "あったかほかほか\n";
}
#CPUから暖かい熱が出てきます。
- 79 ：
- while(1) {
fork;
print("あっかたーい");
}
- 80 ：
- forkはちょっと違うような…
- 81 ：
- 電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
- 82 ：
- 3年・・・
- 83 ：
- ああ、あれから3年経ったな。
- 84 ：
- そして２ヵ月後…
- 85 ：
- 3回目の冬もオワタな
- 86 ：
- な、なんだこのスレは！激しくﾜﾛﾀよ
- 87 ：
- electricstove://www.foobar.st/
- 88 ：
- Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。
そんなわけで私は地名の方を調べてきます...
- 89 ：
- まだあったのかよ・・・
- 90 ：
- AtomAPI で操作できる電気ストーブにしたら便利じゃね？
- 91 ：
- あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．
来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
- 92 ：
- <font face="Webdings" size="5" color="black">Y</font>
- 93 ：
- ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
- 94 ：
- ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
- 95 ：
- ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
- 96 ：
- /＼__,ﾍ,
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
（(^)uu(^)
- 97 ：
- .○⌒＼
.(二二二)
.__（ ´ⅴ｀）
/ .ｏ つ
(＿;し―Ｊ
- 98 ：
- .○⌒＼
.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ つ
(＿;し―Ｊ
- 99 ：
- ○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
- 100read 1read
1read 100read
TOP カテ一覧 スレ一覧 削除依頼 ▲
・ 次のスレ
こんなの作ってみたんだけど・・・
あめぞう型掲示板 ２【厨房隔離スレ】
アパッチが動かねんだよ！！タコ
【Java PHP CGI mod_perl】の使い分け for プロ
