- 1 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/09 22:35 ID:???]
- 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 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:???]
- じゃエロ画像でもｒｙ
|
 |
