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

**名無しさん＠お腹いっぱい。** · 02/01/09 22:35

俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。

**nobodyさん** · 2006/01/06(金) 19:03:58

ﾉノﾉﾉハヽ　　
川`･_･´)||　
ノ/　/L
ノ￣ゝ　　　

**nobodyさん** · 2006/01/07(土) 11:40:38

こたつをprintしよう

**nobodyさん** · 2006/01/07(土) 18:07:56

仕事でperl使ってる手前、おかしくて仕方が無いｗ

**nobodyさん** · 2006/01/07(土) 18:20:36

マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。

**nobodyさん** · 2006/01/08(日) 21:08:56

>>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;

**nobodyさん** · 2006/01/12(木) 13:41:36

>>105
WebProg板だけに、サーバサイドスクリプトなのね。

**nobodyさん** · 2006/01/26(木) 10:56:37

Perlを暴走させて、発熱させたＰＣをコタツにするのですか？

**nobodyさん** · 2006/03/09(木) 16:28:39

プレスコットで電気ストーブを作ってみないか？

**nobodyさん** · 2006/03/09(木) 22:03:38

発熱させるのはPCだからPCでストーブを作ったことになるのでは？

**nobodyさん** · 2006/03/09(木) 22:40:37

Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？

椎名 · 2006/11/02(木) 22:12:48

金の亡者

**nobodyさん** · 2006/11/02(木) 23:01:32

PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら

**nobodyさん** · 2006/11/02(木) 23:55:22

PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。

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

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

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

この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。

**nobodyさん** · 2006/11/05(日) 06:04:34

ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。

**nobodyさん** · 2006/11/05(日) 06:05:09

sage忘れた。sage

**nobodyさん** · 2006/11/05(日) 06:07:53

>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！

**nobodyさん** · 2006/11/05(日) 19:08:50

#!/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)
}

**nobodyさん** · 2006/11/07(火) 05:01:53

真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。

**nobodyさん** · 2006/11/07(火) 05:39:50

増やすためにwhile使うだろ

**nobodyさん** · 2006/11/07(火) 14:40:45

TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです

**nobodyさん** · 2006/11/08(水) 00:07:42

コヒーポット？

**nobodyさん** · 2006/11/24(金) 11:41:02

whileってワイルって読むのか・・・

**nobodyさん** · 2006/11/25(土) 14:10:32

>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？

**nobodyさん** · 2006/11/25(土) 14:46:21

段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

**nobodyさん** · 2006/12/01(金) 14:52:03

ホワイルって読んでた

**nobodyさん** · 2006/12/01(金) 19:13:05

>>125
俺も俺も
単語は米英語発音です。。。

**nobodyさん** · 2006/12/05(火) 03:33:33

誰かcpanに登録しろよ。

2ch::Stove

**nobodyさん** · 2006/12/05(火) 14:13:33

先頭に数字は使えないだろ

**nobodyさん** · 2007/06/17(日) 11:18:58

ニちゃん::ストーブ

**nobodyさん** · 2007/06/18(月) 00:08:47

ここまで続いてると発狂したくなるな

**nobodyさん** · 2007/07/04(水) 22:14:04

つ10 GOTO 10

**nobodyさん** · 2007/08/24(金) 09:48:27

このスレﾜﾛｽｗｗｗ

**nobodyさん** · 2007/11/29(木) 10:20:24

段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

**nobodyさん** · 2007/11/30(金) 00:44:44

6年目の冬･･･

**nobodyさん** · 2008/01/28(月) 21:08:58

うー寒っ。
perlでストーブでも作るか。

**nobodyさん** · 2008/02/15(金) 21:44:09

perlで電気ストーブってどうやって作るんですか?

**nobodyさん** · 2008/03/09(日) 02:15:39

Acme::ElectricStove

**nobodyさん** · 2008/06/06(金) 09:18:08

残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください

**nobodyさん** · 2008/06/06(金) 11:37:25

っつかPerlでは電気ストーブ以外作ったことないすけど。。。

他に何かできるんすか？

**nobodyさん** · 2008/07/18(金) 10:23:57

灯油の値上がりが異常だから作ろうよ

**nobodyさん** · 2008/07/30(水) 12:28:11

おー

**nobodyさん** · 2008/07/30(水) 13:05:13

6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス

**nobodyさん** · 2008/07/30(水) 18:49:19

ほかにどうしろと

**nobodyさん** · 2008/08/13(水) 00:07:33

Perlって何？

**nobodyさん** · 2008/08/13(水) 00:28:40

金銀Perlのネックレスの頭文字をとったものです

**nobodyさん** · 2008/09/04(木) 14:24:35

灯油使わないのはいいよね

**nobodyさん** · 2008/09/05(金) 23:00:48

今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。

**nobodyさん** · 2008/10/05(日) 22:58:19

ストーブがPerl製でも燃料は同じです。

**nobodyさん** · 2008/11/07(金) 16:42:28

>>148
hackが足らない。

**nobodyさん** · 2008/11/26(水) 21:10:25

6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具

**nobodyさん** · 2008/12/05(金) 15:05:54

>>117
STOVE.pmってどこにあります？

**nobodyさん** · 2008/12/14(日) 11:49:38

ヤマダ電機に売ってましたよ

**nobodyさん** · 2009/03/07(土) 17:07:42

ヤマダ行ってくる

**nobodyさん** · 2009/03/09(月) 14:05:48

あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)

**nobodyさん** · 2009/03/09(月) 14:18:59

こんな感じでどうだろ。

#!/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,";
}

**nobodyさん** · 2009/04/01(水) 11:52:26

俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。

**nobodyさん** · 2009/04/02(木) 08:42:00

じゃエロ画像でもｒｙ

**nobodyさん** · 2010/04/23(金) 09:39:00

このスレまだあったのか！
最後の書き込みから、1年以上経ってるしｗ

**nobodyさん** · 2010/04/27(火) 01:31:19

はっきり言って、Perlはすでに冷たくなっているんだが...

**nobodyさん** · 2010/04/27(火) 01:58:20

>>117
うはｗｗｗ　まだあったんかこれ
昔書いたコードがｗｗｗくそショボイｗｗｗｗ

**nobodyさん** · 2010/05/12(水) 22:58:27

いまさらなにいてんだ！おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ！

**nobodyさん** · 2010/05/13(木) 22:39:56

真珠のネックレスもPerlなんだよ！

**nobodyさん** · 2010/06/09(水) 01:50:48

理論的には作れる！間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。

**nobodyさん** · 2012/07/04(水) 08:23:46.60

捕手

**nobodyさん** · 2013/03/09(土) 20:32:38.54

おう

**nobodyさん** · 2014/08/08(金) 23:16:35.17

エラー：灯油が切れています！

**nobodyさん** · 2017/01/21(土) 18:57:18.69

ぬるぽ

**nobodyさん** · 2017/12/30(土) 15:53:31.12

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

IJOVM998Z5

**nobodyさん** · 2018/09/21(金) 23:04:28.22

多分買ってきたほうが早い