- 1 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/09 22:35 ID:???]
- 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 24 名前：nobodyさん mailto: [02/03/25 20:38 ID:???]
- 来年の冬までこのスレ残ってるんだろうなぁ。
- 25 名前：nobodyさん [02/03/25 21:05 ID:U1PPo9Xf]
- >>24
そのときになったら俺があげてやるYO!
- 26 名前：nobodyさん mailto:sage [02/03/25 21:08 ID:???]
- 冬までにシネ
- 27 名前：nobodyさん [02/03/27 21:07 ID:8XoneYAB]
- >>22
その前にAthlonが壊れるぞ
- 28 名前：nobodyさん mailto:sage [02/07/13 14:39 ID:???]
- perlとも電気ストーブとも関係ないのだが
www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
- 29 名前：nobodyさん [02/08/08 22:43 ID:xShKUXBU]
- あげ
- 30 名前：nobodyさん mailto:sage [02/08/08 22:58 ID:???]
- >29
>>25
?
- 31 名前：nobodyさん [02/08/08 23:49 ID:+DvHmUlZ]
- >>30
?
- 32 名前：nobodyさん mailto:sage [02/09/04 13:38 ID:???]
- 冬まで保守するぞ
- 33 名前：nobodyさん mailto:sage [02/10/20 18:18 ID:???]
- ﾎｯｼｭﾎｯｼｭ
- 34 名前：nobodyさん mailto:sage [02/11/04 13:43 ID:???]
- 11月ですが、何か?
- 35 名前： ◆mFK66iWE8c mailto:sage [02/11/05 04:21 ID:???]
- もうすぐ冬ですね
- 36 名前：名無しバサー mailto:sage [02/12/21 05:27 ID:???]
- 冬やぞ～
- 37 名前：山崎渉 mailto:（＾＾）sage [03/01/15 13:46 ID:???]
- （＾＾）
- 38 名前：山崎渉 mailto:（＾＾） [03/03/13 17:47 ID:???]
- （＾＾）
- 39 名前：nobodyさん mailto:sage [03/03/15 02:53 ID:???]
- Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
- 40 名前：nobodyさん mailto:sage [03/03/31 22:36 ID:???]
- >>39
オムライスならソースよりケチャップがいいな
- 41 名前：39 mailto:sage [03/04/01 23:00 ID:???]
- >>40
ナイス突っ込み39
- 42 名前：山崎渉 mailto:（＾＾） [03/04/17 12:15 ID:???]
- （＾＾）
- 43 名前：山崎渉 mailto:（＾＾）sage [03/04/20 06:19 ID:???]
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 44 名前：山崎渉 mailto:（＾＾） [03/05/22 02:19 ID:???]
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 45 名前：山崎渉 mailto:（＾＾） [03/05/28 17:10 ID:???]
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 46 名前：山崎 渉 mailto:（＾＾） [03/07/15 11:23 ID:???]
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 47 名前：山崎 渉 mailto:（＾＾）sage [03/08/02 02:29 ID:???]
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 48 名前：ぼるじょあ ◆ySd1dMH5Gk mailto:（＾＾） [03/08/02 05:04 ID:???]
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 49 名前：山崎 渉 mailto:（＾＾） [03/08/15 23:24 ID:???]
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 50 名前：nobodyさん mailto: [03/12/27 07:35 ID:???]
- >>24-25
ageとくよ。
- 51 名前：nobodyさん [03/12/27 12:58 ID:D74m3gSA]
- 優良スレage
- 52 名前：nobodyさん mailto:sage [03/12/27 18:07 ID:???]
- できた！
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
- 53 名前：nobodyさん [04/01/05 19:22 ID:siolyDpc]
- Perlで電気グルーブも誰か作ってんか
- 54 名前：nobodyさん mailto:sage [04/01/07 18:44 ID:???]
- >>52
>>8でガイシュツ
- 55 名前：nobodyさん mailto:age [04/01/09 07:33 ID:???]
- >>52
もう少しおもしろいこと言って欲しかったです
- 56 名前：nobodyさん [04/01/09 21:39 ID:5rm0Ms8m]
- >>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
- 57 名前：nobodyさん mailto:sage [04/01/10 01:08 ID:???]
- 52==56
- 58 名前：nobodyさん mailto:sage [04/01/15 16:15 ID:???]
- 早く作らないと冬が終わるぞ
>>1
- 59 名前： ◆D5Hate7SLg mailto:sage [04/01/27 01:59 ID:???]
- 寒いよー
- 60 名前：nobodyさん mailto:sage [04/02/15 11:24 ID:???]
- また来年。
- 61 名前：nobodyさん mailto:sage [04/03/20 09:44 ID:???]
- 何度でもよみがえる
- 62 名前：たかの沙ｙ秦 [04/03/23 13:47 ID:i7wFRGEl]
- age
- 63 名前：nobodyさん mailto:age [04/04/08 18:26 ID:???]
- “負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
- 64 名前：nobodyさん mailto:sage [04/04/09 08:17 ID:???]
- >>63
電気ストーブは負荷をかけて温度を上げてます。
- 65 名前：nobodyさん mailto:sage [04/04/22 10:49 ID:???]
- while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
- 66 名前：nobodyさん mailto:age [04/05/01 22:53 ID:???]
- 残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
- 67 名前：nobodyさん mailto:o [04/05/01 23:46 ID:???]
- >>65
ヘアドライヤーになるかも。
- 68 名前：nobodyさん mailto: [04/05/11 21:19 ID:???]
- 電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。
以下ソース
#!/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 名前：nobodyさん mailto: [04/05/11 21:20 ID:???]
- ソースの続き。
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 名前：nobodyさん mailto:sage [04/05/13 20:20 ID:???]
- Perlじゃ無理だよ 遅いから・・・。
- 71 名前：nobodyさん [04/05/18 04:48 ID:HwISgAOU]
- 超負荷をかけて無限ループ
＆
CPUファン等の冷却装置をはずす。
ほっかほか。(*´д`*)ｱﾊｧ
- 72 名前：nobodyさん mailto:sage [04/05/18 05:10 ID:???]
- ファンがないと熱風出ないだろ。
- 73 名前：名無しさん＠Linuxザウルス [04/05/18 20:17 ID:i3QZMTMG]
- まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
- 74 名前：名無しさん [04/05/18 20:21 ID: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";
つづく
- 75 名前：名無しさん [04/05/18 20:22 ID: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";
- 76 名前：nobodyさん [04/05/22 03:25 ID:ZuxEnrYy]
- 実際動くところを見せておくれ。
机上の空論になっとる。
- 77 名前：nobodyさん [04/05/30 19:58 ID:KEV3OJXn]
- perl -e '`make stove`'
- 78 名前：nobodyさん mailto:sage [04/05/30 22:38 ID:???]
- #!/Perl/bin/perl
while(1)
{
print "あったかほかほか\n";
}
#CPUから暖かい熱が出てきます。
- 79 名前：nobodyさん [04/05/30 23:57 ID:zsGUscii]
- while(1) {
fork;
print("あっかたーい");
}
- 80 名前：nobodyさん mailto:sage [04/05/31 01:47 ID:???]
- forkはちょっと違うような…
- 81 名前：nobodyさん mailto:sage [04/10/02 11:16:52 ID:???]
- 電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
- 82 名前：nobodyさん [05/01/11 05:35:23 ID:d1wYSRf9]
- 3年・・・
- 83 名前：nobodyさん mailto:sage [05/01/14 14:20:44 ID:???]
- ああ、あれから3年経ったな。
- 84 名前：nobodyさん [05/03/13 18:46:07 ID:yV0EPN+6]
- そして２ヵ月後…
- 85 名前：nobodyさん mailto:sage [05/03/14 06:52:38 ID:???]
- 3回目の冬もオワタな
- 86 名前：nobodyさん mailto:sage [05/03/16 12:46:11 ID:???]
- な、なんだこのスレは！激しくﾜﾛﾀよ
- 87 名前：nobodyさん mailto:sage [05/03/16 14:50:48 ID:???]
- electricstove://www.foobar.st/
- 88 名前：nobodyさん [2005/10/03(月) 00:54:00 ID:umVesKWU]
- Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。
そんなわけで私は地名の方を調べてきます...
- 89 名前：nobodyさん [2005/10/03(月) 01:46:11 ID:RYS/0is/]
- まだあったのかよ・・・
- 90 名前：nobodyさん [2005/10/06(木) 13:25:51 ID:Yi8E4LoQ]
- AtomAPI で操作できる電気ストーブにしたら便利じゃね？
- 91 名前：nobodyさん mailto:sage [2005/10/06(木) 13:29:17 ID:???]
- あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．
来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
- 92 名前：nobodyさん [2005/10/06(木) 19:26:43 ID:kKdAE9DW]
- <font face="Webdings" size="5" color="black">Y</font>
- 93 名前：nobodyさん mailto:sage [2005/12/16(金) 14:59:13 ID:???]
- ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
- 94 名前：nobodyさん mailto:sage [2005/12/16(金) 15:00:18 ID:???]
- ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
- 95 名前：nobodyさん mailto:sage [2005/12/16(金) 15:06:33 ID:???]
- ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
- 96 名前：nobodyさん mailto:sage [2005/12/18(日) 01:58:04 ID:???]
- /＼__,ﾍ,
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
（(^)uu(^)
- 97 名前：nobodyさん mailto:sage [2005/12/24(土) 18:19:51 ID:???]
- .○⌒＼
.(二二二)
.__（ ´ⅴ｀）
/ .ｏ つ
(＿;し―Ｊ
- 98 名前：nobodyさん mailto:sage [2005/12/24(土) 18:21:03 ID:???]
- .○⌒＼
.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ つ
(＿;し―Ｊ
- 99 名前：nobodyさん mailto:sage [2005/12/25(日) 21:55:41 ID:???]
- ○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
- 100 名前：nobodyさん mailto:sage [2005/12/29(木) 17:19:57 ID:???]
- ☆ノﾉハヽ
リﾉ‘ヮ‘ﾘﾉ ＜
(l]つ：)]つ
く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
- 101 名前：nobodyさん mailto:sage [2006/01/06(金) 19:03:58 ID:???]
- ﾉノﾉﾉハヽ
川`･_･´)||
ノ/ /L
ノ￣ゝ
- 102 名前：nobodyさん [2006/01/07(土) 11:40:38 ID:Yrk/+KPl]
- こたつをprintしよう
- 103 名前：nobodyさん mailto:sage [2006/01/07(土) 18:07:56 ID:???]
- 仕事でperl使ってる手前、おかしくて仕方が無いｗ
- 104 名前：nobodyさん mailto:sage [2006/01/07(土) 18:20:36 ID:???]
- マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
- 105 名前：nobodyさん [2006/01/08(日) 21:08:56 ID:jjfaosB+]
- >>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;
- 106 名前：nobodyさん mailto:sage [2006/01/12(木) 13:41:36 ID:???]
- >>105
WebProg板だけに、サーバサイドスクリプトなのね。
- 107 名前：nobodyさん mailto:sage [2006/01/26(木) 10:56:37 ID:???]
- Perlを暴走させて、発熱させたＰＣをコタツにするのですか？
- 108 名前：nobodyさん [2006/03/09(木) 16:28:39 ID:Fd0dBP0K]
- プレスコットで電気ストーブを作ってみないか？
- 109 名前：nobodyさん mailto:sage [2006/03/09(木) 22:03:38 ID:???]
- 発熱させるのはPCだからPCでストーブを作ったことになるのでは？
- 110 名前：nobodyさん mailto:sage [2006/03/09(木) 22:40:37 ID:???]
- Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？
- 111 名前：椎名 mailto:進 [2006/11/02(木) 22:12:48 ID:???]
- 金の亡者
- 112 名前：nobodyさん mailto:sage [2006/11/02(木) 23:01:32 ID:???]
- PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
- 113 名前：nobodyさん mailto:sage [2006/11/02(木) 23:55:22 ID:???]
- PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。
さぁ！これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ！
CPU：最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU：対応している物で最も高性能な物にしておけば特に問題はない。
HDD：RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源：恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン：高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。
そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”！
・熱を外に逃がさず蓄えるための”コタツ布団”！
うん、僕はコタツ派なんだ許しておくれ。
この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。
- 114 名前：nobodyさん [2006/11/05(日) 06:04:34 ID:9CpRBd2c]
- ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。
- 115 名前：nobodyさん mailto:sage [2006/11/05(日) 06:05:09 ID:???]
- sage忘れた。sage
- 116 名前：nobodyさん mailto:sage [2006/11/05(日) 06:07:53 ID:???]
- >>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！
- 117 名前：nobodyさん mailto:sage [2006/11/05(日) 19:08:50 ID:???]
- #!/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さん [2006/11/07(火) 05:01:53 ID:LezWqaS7]
- 真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
- 119 名前：nobodyさん mailto:sage [2006/11/07(火) 05:39:50 ID:???]
- 増やすためにwhile使うだろ
- 120 名前：nobodyさん mailto:sage [2006/11/07(火) 14:40:45 ID:???]
- TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
- 121 名前：nobodyさん mailto:sage [2006/11/08(水) 00:07:42 ID:???]
- コヒーポット？
- 122 名前：nobodyさん mailto:sage [2006/11/24(金) 11:41:02 ID:???]
- whileってワイルって読むのか・・・
- 123 名前：nobodyさん [2006/11/25(土) 14:10:32 ID:MAk3S3G9]
- >>122
まさかお前今までwhileのことをウィルとでも読んでたのか？
- 124 名前：nobodyさん mailto:sage [2006/11/25(土) 14:46:21 ID:???]
- 段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
|
 |
