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

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

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。02/01/09 22:35ID:???
俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
0102nobodyさん2006/01/07(土) 11:40:38ID:Yrk/+KPl
こたつをprintしよう
0103nobodyさん2006/01/07(土) 18:07:56ID:???
仕事でperl使ってる手前、おかしくて仕方が無いｗ
0104nobodyさん2006/01/07(土) 18:20:36ID:???
マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
0105nobodyさん2006/01/08(日) 21:08:56ID: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;
0106nobodyさん2006/01/12(木) 13:41:36ID:???
>>105
WebProg板だけに、サーバサイドスクリプトなのね。
0107nobodyさん2006/01/26(木) 10:56:37ID:???
Perlを暴走させて、発熱させたＰＣをコタツにするのですか？
0108nobodyさん2006/03/09(木) 16:28:39ID:Fd0dBP0K
プレスコットで電気ストーブを作ってみないか？
0109nobodyさん2006/03/09(木) 22:03:38ID:???
発熱させるのはPCだからPCでストーブを作ったことになるのでは？
0110nobodyさん2006/03/09(木) 22:40:37ID:???
Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？
0111椎名2006/11/02(木) 22:12:48ID:???
金の亡者
0112nobodyさん2006/11/02(木) 23:01:32ID:???
PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
0113nobodyさん2006/11/02(木) 23:55:22ID:???
PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。

さぁ！これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ！

CPU：最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU：対応している物で最も高性能な物にしておけば特に問題はない。
HDD：RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源：恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン：高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。


そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”！
・熱を外に逃がさず蓄えるための”コタツ布団”！
うん、僕はコタツ派なんだ許しておくれ。

この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。
0114nobodyさん2006/11/05(日) 06:04:34ID:9CpRBd2c
ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。
0115nobodyさん2006/11/05(日) 06:05:09ID:???
sage忘れた。sage
0116nobodyさん2006/11/05(日) 06:07:53ID:???
>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！
0117nobodyさん2006/11/05(日) 19:08:50ID:???
#!/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)
}
0118nobodyさん2006/11/07(火) 05:01:53ID:LezWqaS7
真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
0119nobodyさん2006/11/07(火) 05:39:50ID:???
増やすためにwhile使うだろ
0120nobodyさん2006/11/07(火) 14:40:45ID:???
TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
0121nobodyさん2006/11/08(水) 00:07:42ID:???
コヒーポット？
0122nobodyさん2006/11/24(金) 11:41:02ID:???
whileってワイルって読むのか・・・
0123nobodyさん2006/11/25(土) 14:10:32ID:MAk3S3G9
>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？
0124nobodyさん2006/11/25(土) 14:46:21ID:???
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
0125nobodyさん2006/12/01(金) 14:52:03ID:???
ホワイルって読んでた
0126nobodyさん2006/12/01(金) 19:13:05ID:???
>>125
俺も俺も
単語は米英語発音です。。。
0127nobodyさん2006/12/05(火) 03:33:33ID:???
誰かcpanに登録しろよ。

2ch::Stove
0128nobodyさん2006/12/05(火) 14:13:33ID:???
先頭に数字は使えないだろ
0129nobodyさん2007/06/17(日) 11:18:58ID:CcwzlC8Y
ニちゃん::ストーブ
0130nobodyさん2007/06/18(月) 00:08:47ID:???
ここまで続いてると発狂したくなるな
0131nobodyさん2007/07/04(水) 22:14:04ID:???


つ10 GOTO 10
0132nobodyさん2007/08/24(金) 09:48:27ID:JWUhZcKL
このスレﾜﾛｽｗｗｗ
0133nobodyさん2007/11/29(木) 10:20:24ID:???
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
0134nobodyさん2007/11/30(金) 00:44:44ID:???
6年目の冬･･･
0135nobodyさん2008/01/28(月) 21:08:58ID:???
うー寒っ。
perlでストーブでも作るか。
0136nobodyさん2008/02/15(金) 21:44:09ID:A0WXhOsP
perlで電気ストーブってどうやって作るんですか?
0137nobodyさん2008/03/09(日) 02:15:39ID:???
Acme::ElectricStove
0138nobodyさん2008/06/06(金) 09:18:08ID:???
残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
0139nobodyさん2008/06/06(金) 11:37:25ID:BYonZ9Xz
っつかPerlでは電気ストーブ以外作ったことないすけど。。。

他に何かできるんすか？
0140nobodyさん2008/07/18(金) 10:23:57ID:???
灯油の値上がりが異常だから作ろうよ
0141nobodyさん2008/07/30(水) 12:28:11ID:???
おー
0142nobodyさん2008/07/30(水) 13:05:13ID:Af+1KtEz
6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス
0143nobodyさん2008/07/30(水) 18:49:19ID:???
ほかにどうしろと
0144nobodyさん2008/08/13(水) 00:07:33ID:???
Perlって何？
0145nobodyさん2008/08/13(水) 00:28:40ID:???
金銀Perlのネックレスの頭文字をとったものです
0146nobodyさん2008/09/04(木) 14:24:35ID:???
灯油使わないのはいいよね
0147nobodyさん2008/09/05(金) 23:00:48ID:???
今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。
0148nobodyさん2008/10/05(日) 22:58:19ID:???
ストーブがPerl製でも燃料は同じです。
0149nobodyさん2008/11/07(金) 16:42:28ID:???
>>148
hackが足らない。
0150nobodyさん2008/11/26(水) 21:10:25ID:GyupIWdq
6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具
0151nobodyさん2008/12/05(金) 15:05:54ID:tuYpMTRh
>>117
STOVE.pmってどこにあります？
0152nobodyさん2008/12/14(日) 11:49:38ID:???
ヤマダ電機に売ってましたよ
0153nobodyさん2009/03/07(土) 17:07:42ID:svmAHGib
ヤマダ行ってくる
0154nobodyさん2009/03/09(月) 14:05:48ID:???
あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)
0155nobodyさん2009/03/09(月) 14:18:59ID:???
こんな感じでどうだろ。

#!/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 => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME}");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}
0156nobodyさん2009/04/01(水) 11:52:26ID:???
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
0157nobodyさん2009/04/02(木) 08:42:00ID:???
じゃエロ画像でもｒｙ
0158nobodyさん2010/04/23(金) 09:39:00ID:SlKc4drv
このスレまだあったのか！
最後の書き込みから、1年以上経ってるしｗ
0159nobodyさん2010/04/27(火) 01:31:19ID:???
はっきり言って、Perlはすでに冷たくなっているんだが...
0160nobodyさん2010/04/27(火) 01:58:20ID:???
>>117
うはｗｗｗ　まだあったんかこれ
昔書いたコードがｗｗｗくそショボイｗｗｗｗ
0161nobodyさん2010/05/12(水) 22:58:27ID:L029Fmu7
いまさらなにいてんだ！おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ！
0162nobodyさん2010/05/13(木) 22:39:56ID:???
真珠のネックレスもPerlなんだよ！
0163nobodyさん2010/06/09(水) 01:50:48ID:D52jLZq7
理論的には作れる！間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。
0164nobodyさん2012/07/04(水) 08:23:46.60ID:???
捕手
0165nobodyさん2013/03/09(土) 20:32:38.54ID:???
おう
■ このスレッドは過去ログ倉庫に格納されています