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

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/09 22:35 ID:???] 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に 生み出された言語だというではないか。では、Perlでどのようなコードを 書いたら電気ストーブが作れるのか皆で考えようじゃないか。 2 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/09 22:43 ID:???] >>1の調べによると>>1は元々電気ストーブの開発の為に 生み出されたというではないか。では、>>1はどのようなコードを 書いたら電気ストーブが作れるのか皆で考えようじゃないか。 3 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/10 00:15 ID:???] でも笑い事じゃないんだよな。 コンピュータで何ができるか・何ができないかも知らずに 無謀な事を言い出す上司はどこにでも居るもんだ（泣 # 板違いな話題になりそうだからsage 4 名前：名無しさん＠お腹いっぱい。 mailto:age [02/01/10 00:22 ID:???] >>1 どこで調べたの？ 5 名前：　　　　 mailto:　 [02/01/10 00:41 ID:???] ところでコタツのコードは、なんで布巻いてあんの？ 6 名前：名無しさん＠お腹いっぱい。 [02/01/10 00:50 ID:ShbLA3VA] あげ 7 名前：名無しさん＠お腹いっぱい。 mailto:age [02/01/10 01:09 ID:???] >>5 断線防止でしょうよ。あと、発火防止。 8 名前：中禅寺 [02/01/10 05:42 ID:xa3BQJm5] while(1)で無限ループ→CPU発熱→あったかマターリ ということでよろしいでしょうか？ ...って、別にPerlでなくても（自爆 9 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/10 06:17 ID:???] >5 触るとなんかホッとするじゃん。だからだよ。 10 名前：名無しさん＠お腹いっぱい。 [02/01/10 08:13 ID:oeInymHK] >>1 は、寒かったのでしょうか 11 名前：名無しさん＠お腹いっぱい。 [02/01/10 09:18 ID:6z++Gsnn] >1　ｿｰｽ出してよ！ 12 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/10 10:30 ID:???] >>11 カレーにソース入れる派なのか。 13 名前： mailto:sage [02/01/10 11:17 ID:???] カレーにソース入れて旨い？ 14 名前：名無しさん＠Ｅｍａｃｓ mailto:sage [02/01/10 11:41 ID:???] 電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。 やっぱ石油ストーブじゃないと。 15 名前：これならでけた mailto:sage [02/01/10 13:33 ID:???] Perlでロボットを動かしてストーブを作るのはセーフ？ 16 名前：ヽ(´▽｀)/へへっ [02/01/10 23:42 ID:XTHY1MVd] 結構簡単ジャン。 #!/usr/2ch/nel print <<"EOF"; Content-type: text/html おい、電気ストーブ買って来てくれ。（至急） あと領収書は130Rやぞ、わかっとるんか？ あ？コンビ名じゃねぇよバカヤロウ！！ 事務所の名前だっつーの、ふざけんな。 あと漏れもいい年して兄さんなんて呼ばれるの どうかと思うねんけどお前らどうや？ まぁおれはずっと２番で逝こうと思ってる来てるからな。 EOF exit; 17 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/11 00:29 ID:???] あまり面白くないね 18 名前：nobodyさん mailto: [02/03/19 13:04 ID:???] もうストーブ片づけないとなあ 19 名前：nobodyさん mailto:sage [02/03/19 13:32 ID:???] >>17 全然面白くねえよ。 20 名前：nobodyさん [02/03/19 14:00 ID:JCJlraCw] 負荷のかかるコード書いて、CPUで暖まるんじゃないの？ 円周率の計算とか、フラクタルの計算するとか。 せいぜいウズラの目玉焼きつくれるくらいだけどね。 21 名前：nobodyさん mailto:sage [02/03/19 14:18 ID:???] 1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。 22 名前：nobodyさん [02/03/19 23:09 ID:Uem1heHb] アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。 23 名前：a mailto:sage [02/03/21 15:17 ID:???] >>19にﾜﾛﾀ。 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:???] 　.○⌒＼ 　.(二二二) .__（　´�D｀） / .ｏ　　　つ (＿;し―Ｊ 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:???] 段々と冬の気配が近づいてまいりました。 皆様、いかがお過ごしでしょうか。 125 名前：nobodyさん mailto:sage [2006/12/01(金) 14:52:03 ID:???] ホワイルって読んでた 126 名前：nobodyさん mailto:sage [2006/12/01(金) 19:13:05 ID:???] >>125 俺も俺も 単語は米英語発音です。。。 127 名前：nobodyさん mailto:sage [2006/12/05(火) 03:33:33 ID:???] 誰かcpanに登録しろよ。 2ch::Stove 128 名前：nobodyさん mailto:sage [2006/12/05(火) 14:13:33 ID:???] 先頭に数字は使えないだろ 129 名前：nobodyさん [2007/06/17(日) 11:18:58 ID:CcwzlC8Y] ニちゃん::ストーブ 130 名前：nobodyさん mailto:sage [2007/06/18(月) 00:08:47 ID:???] ここまで続いてると発狂したくなるな 131 名前：nobodyさん mailto:sage [2007/07/04(水) 22:14:04 ID:???] つ10 GOTO 10 132 名前：nobodyさん [2007/08/24(金) 09:48:27 ID:JWUhZcKL] このスレﾜﾛｽｗｗｗ 133 名前：nobodyさん mailto:age [2007/11/29(木) 10:20:24 ID:???] 段々と冬の気配が近づいてまいりました。 皆様、いかがお過ごしでしょうか。 134 名前：nobodyさん mailto:sage [2007/11/30(金) 00:44:44 ID:???] 6年目の冬･･･ 135 名前：nobodyさん mailto:sage [2008/01/28(月) 21:08:58 ID:???] うー寒っ。 perlでストーブでも作るか。 136 名前：nobodyさん [2008/02/15(金) 21:44:09 ID:A0WXhOsP] perlで電気ストーブってどうやって作るんですか? 137 名前：nobodyさん mailto:sage [2008/03/09(日) 02:15:39 ID:???] Acme::ElectricStove 138 名前：nobodyさん mailto:? [2008/06/06(金) 09:18:08 ID:???] 残念ながら今の先物価格だと灯油が120円は軽く超えます。 灯油がガソリン以上にかなり買い占めされています。 冬は１６０円相当にまでなってます。 石油を使わない電気ストーブまたはエアコンを考えてください 139 名前：nobodyさん [2008/06/06(金) 11:37:25 ID:BYonZ9Xz] っつかPerlでは電気ストーブ以外作ったことないすけど。。。 他に何かできるんすか？ 140 名前：nobodyさん mailto:? [2008/07/18(金) 10:23:57 ID:???] 灯油の値上がりが異常だから作ろうよ 141 名前：nobodyさん mailto:? [2008/07/30(水) 12:28:11 ID:???] おー 142 名前：nobodyさん [2008/07/30(水) 13:05:13 ID:Af+1KtEz] 6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス 143 名前：nobodyさん mailto:sage [2008/07/30(水) 18:49:19 ID:???] ほかにどうしろと 144 名前：nobodyさん mailto:? [2008/08/13(水) 00:07:33 ID:???] Perlって何？ 145 名前：nobodyさん mailto:sage [2008/08/13(水) 00:28:40 ID:???] 金銀Perlのネックレスの頭文字をとったものです 146 名前：nobodyさん mailto:ｇｇ [2008/09/04(木) 14:24:35 ID:???] 灯油使わないのはいいよね 147 名前：nobodyさん mailto:sage [2008/09/05(金) 23:00:48 ID:???] 今年は油高ぇからなあ。氏にかねん。 Perlストーブ、alpha でいいからリリースしてくれ。 148 名前：nobodyさん mailto:sage [2008/10/05(日) 22:58:19 ID:???] ストーブがPerl製でも燃料は同じです。 149 名前：nobodyさん mailto:sage [2008/11/07(金) 16:42:28 ID:???] >>148 hackが足らない。 150 名前：nobodyさん [2008/11/26(水) 21:10:25 ID:GyupIWdq] 6年越しの衝撃の事実に恐れおののくが良い 電気ストーブの英訳は"electric heater" "electric stove"は調理器具 151 名前：nobodyさん [2008/12/05(金) 15:05:54 ID:tuYpMTRh] >>117 STOVE.pmってどこにあります？ 152 名前：nobodyさん mailto:sage [2008/12/14(日) 11:49:38 ID:???] ヤマダ電機に売ってましたよ 153 名前：nobodyさん [2009/03/07(土) 17:07:42 ID:svmAHGib] ヤマダ行ってくる 154 名前：nobodyさん mailto:sage [2009/03/09(月) 14:05:48 ID:???] あー思いついた。 それほど負荷になるのかどうかは知らんが、 Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。 そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合) 155 名前：nobodyさん mailto:sage [2009/03/09(月) 14:18:59 ID:???] こんな感じでどうだろ。 #!/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 => "$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME}"); my $res = $ua->request($req); $i = $i + 1; print "$i,"; } 156 名前：nobodyさん mailto:sage [2009/04/01(水) 11:52:26 ID:???] 俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな 辛い料理は見てるだけで汗が出てくる。 157 名前：nobodyさん mailto:sage [2009/04/02(木) 08:42:00 ID:???] じゃエロ画像でもｒｙ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef