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

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

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

でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ(泣
# 板違いな話題になりそうだからsage

>>1
どこで調べたの?

5    02/01/10 00:41ID:???
ところでコタツのコードは、なんで布巻いてあんの?

6名無しさん@お腹いっぱい。02/01/10 00:50ID:ShbLA3VA
あげ

>>5
断線防止でしょうよ。あと、発火防止。

8中禅寺02/01/10 05:42ID:xa3BQJm5
while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか?
...って、別にPerlでなくても(自爆

>5
触るとなんかホッとするじゃん。だからだよ。

10名無しさん@お腹いっぱい。02/01/10 08:13ID:oeInymHK
>>1 は、寒かったのでしょうか

11名無しさん@お腹いっぱい。02/01/10 09:18ID:6z++Gsnn
>1 ソース出してよ!

>>11 カレーにソース入れる派なのか。

13 02/01/10 11:17ID:???
カレーにソース入れて旨い?

14名無しさん@Emacs02/01/10 11:41ID:???
電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。

15これならでけた02/01/10 13:33ID:???
Perlでロボットを動かしてストーブを作るのはセーフ?

16ヽ(´▽`)/へへっ02/01/10 23:42ID:XTHY1MVd
結構簡単ジャン。
#!/usr/2ch/nel

print <<"EOF";
Content-type: text/html

おい、電気ストーブ買って来てくれ。(至急)
あと領収書は130Rやぞ、わかっとるんか?
あ?コンビ名じゃねぇよバカヤロウ!!
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや?
まぁおれはずっと2番で逝こうと思ってる来てるからな。
EOF
exit;

あまり面白くないね

18nobodyさん02/03/19 13:04ID:???
もうストーブ片づけないとなあ

19nobodyさん02/03/19 13:32ID:???
>>17
全然面白くねえよ。

20nobodyさん02/03/19 14:00ID:JCJlraCw
負荷のかかるコード書いて、CPUで暖まるんじゃないの?
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。

21nobodyさん02/03/19 14:18ID:???
1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。

22nobodyさん02/03/19 23:09ID:Uem1heHb
アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。

23a02/03/21 15:17ID:???
>>19にワロタ。

24nobodyさん02/03/25 20:38ID:???
来年の冬までこのスレ残ってるんだろうなぁ。

25nobodyさん02/03/25 21:05ID:U1PPo9Xf
>>24
そのときになったら俺があげてやるYO!

26nobodyさん02/03/25 21:08ID:???
冬までにシネ

27nobodyさん02/03/27 21:07ID:8XoneYAB
>>22
その前にAthlonが壊れるぞ

28nobodyさん02/07/13 14:39ID:???
perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
>>1はこの手のネタとかが好きなのかな?

29nobodyさん02/08/08 22:43ID:xShKUXBU
あげ

30nobodyさん02/08/08 22:58ID:???
>29

>>25
?

31nobodyさん02/08/08 23:49ID:+DvHmUlZ
>>30
?

32nobodyさん02/09/04 13:38ID:???
冬まで保守するぞ

33nobodyさん02/10/20 18:18ID:???
ホッシュホッシュ

34nobodyさん02/11/04 13:43ID:???
11月ですが、何か?

35 ◆mFK66iWE8c 02/11/05 04:21ID:???
もうすぐ冬ですね

36名無しバサー02/12/21 05:27ID:???
冬やぞ〜

37山崎渉03/01/15 13:46ID:???
(^^)

38山崎渉03/03/13 17:47ID:???
(^^)

39nobodyさん03/03/15 02:53ID:???
Perlで電気ストーブ出来たよ!
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる?

40nobodyさん03/03/31 22:36ID:???
>>39
オムライスならソースよりケチャップがいいな

413903/04/01 23:00ID:???
>>40
ナイス突っ込み39

42山崎渉03/04/17 12:15ID:???
(^^)

43山崎渉03/04/20 06:19ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

44山崎渉03/05/22 02:19ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

45山崎渉03/05/28 17:10ID:???
     ∧_∧
ピュ.ー (  ^^ ) <これからも僕を応援して下さいね(^^)。
  =〔~∪ ̄ ̄〕
  = ◎――◎                      山崎渉

46山崎 渉03/07/15 11:23ID:???

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

47山崎 渉03/08/02 02:29ID:???
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

48ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:04ID:???
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

49山崎 渉03/08/15 23:24ID:???
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

50nobodyさん03/12/27 07:35ID:???
>>24-25
ageとくよ。

51nobodyさん03/12/27 12:58ID:D74m3gSA
優良スレage

52nobodyさん03/12/27 18:07ID:???
できた!

while(1) {$i++}


CPUに負荷がかかって温度が上がり、暖房として使えるようになります。

53nobodyさん04/01/05 19:22ID:siolyDpc
Perlで電気グルーブも誰か作ってんか

54nobodyさん04/01/07 18:44ID:???
>>52
>>8でガイシュツ

55nobodyさん04/01/09 07:33ID:???
>>52
もう少しおもしろいこと言って欲しかったです

56nobodyさん04/01/09 21:39ID:5rm0Ms8m
>>52
72分ぐらい笑ったぞ!責任取れ!がははh

57nobodyさん04/01/10 01:08ID:???
52==56

58nobodyさん04/01/15 16:15ID:???
早く作らないと冬が終わるぞ
>>1

59 ◆D5Hate7SLg 04/01/27 01:59ID:???
寒いよー

60nobodyさん04/02/15 11:24ID:???
また来年。

61nobodyさん04/03/20 09:44ID:???
何度でもよみがえる

62たかの沙y秦04/03/23 13:47ID:i7wFRGEl
age

63nobodyさん04/04/08 18:26ID:???
“負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。

64nobodyさん04/04/09 08:17ID:???
>>63
電気ストーブは負荷をかけて温度を上げてます。

65nobodyさん04/04/22 10:49ID:???
while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';

66nobodyさん04/05/01 22:53ID:???
残念ながらperlでストーブを作ることはできない。
phpならできるだろう。

67nobodyさん04/05/01 23:46ID:???
>>65
ヘアドライヤーになるかも。

68nobodyさん04/05/11 21:19ID:???
電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。

以下ソース
#!/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";

以下続く。

69nobodyさん04/05/11 21:20ID:???
ソースの続き。

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

70nobodyさん04/05/13 20:20ID:???
Perlじゃ無理だよ 遅いから・・・。

71nobodyさん04/05/18 04:48ID:HwISgAOU
超負荷をかけて無限ループ
       &
CPUファン等の冷却装置をはずす。

ほっかほか。(*´д`*)アハァ

72nobodyさん04/05/18 05:10ID:???
ファンがないと熱風出ないだろ。

73名無しさん@Linuxザウルス04/05/18 20:17ID:i3QZMTMG
まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ

74名無しさん04/05/18 20:21ID: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:22ID: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";

76nobodyさん04/05/22 03:25ID:ZuxEnrYy
実際動くところを見せておくれ。
机上の空論になっとる。

77nobodyさん04/05/30 19:58ID:KEV3OJXn
perl -e '`make stove`'

78nobodyさん04/05/30 22:38ID:???
#!/Perl/bin/perl

while(1)
{
print "あったかほかほか\n";
}


#CPUから暖かい熱が出てきます。

79nobodyさん04/05/30 23:57ID:zsGUscii
while(1) {
fork;
print("あっかたーい");
}

80nobodyさん04/05/31 01:47ID:???
forkはちょっと違うような…

81nobodyさん04/10/02 11:16:52ID:???
電気ストーブ制御用のプロトコルつくって、
RFCに登録したら?
で、Perlでそれを実現するコーディングを。

82nobodyさん05/01/11 05:35:23ID:d1wYSRf9
3年・・・

83nobodyさん05/01/14 14:20:44ID:???
ああ、あれから3年経ったな。

84nobodyさん05/03/13 18:46:07ID:yV0EPN+6
そして2ヵ月後…

85nobodyさん05/03/14 06:52:38ID:???
3回目の冬もオワタな

86nobodyさん05/03/16 12:46:11ID:???
な、なんだこのスレは!激しくワロタよ

87nobodyさん05/03/16 14:50:48ID:???
electricstove://www.foobar.st/

88nobodyさん2005/10/03(月) 00:54:00ID:umVesKWU
Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。

そんなわけで私は地名の方を調べてきます...


89nobodyさん2005/10/03(月) 01:46:11ID:RYS/0is/
まだあったのかよ・・・

90nobodyさん2005/10/06(木) 13:25:51ID:Yi8E4LoQ
AtomAPI で操作できる電気ストーブにしたら便利じゃね?

91nobodyさん2005/10/06(木) 13:29:17ID:???
あぁ,あと RSS で室温,残り燃料を配信したら一部の人にとっては便利かもしれない.

来るべく冬に備えて,そろそろこのプロジェクト始動しないと.


92nobodyさん2005/10/06(木) 19:26:43ID:kKdAE9DW
<font face="Webdings" size="5" color="black">Y</font>

93nobodyさん2005/12/16(金) 14:59:13ID:???
ノノノノハヽヽ
リノ>ヮ<リノ<クション!

94nobodyさん2005/12/16(金) 15:00:18ID:???
ノノノノハヽ
リノ‘ヮ‘リノ

95nobodyさん2005/12/16(金) 15:06:33ID:???
ノノノノハヽ
リノ>ヮ<リノ

96nobodyさん2005/12/18(日) 01:58:04ID:???
  /\__,ヘ,
  ノノノノハヽ
  リノ‘ヮ‘リノ
  ((^)uu(^)

97nobodyさん2005/12/24(土) 18:19:51ID:???
 .○⌒\
 .(二二二)
.__( ´D`)
/ .o   つ
(_;し―J

98nobodyさん2005/12/24(土) 18:21:03ID:???
 .○⌒\
 .(二二二)
.__リノ‘ヮ‘リノ
/ .o   つ
(_;し―J

99nobodyさん2005/12/25(日) 21:55:41ID:???
○⌒\
(二二二)
リノ‘ヮ‘リノ

100nobodyさん2005/12/29(木) 17:19:57ID:???
     ☆ノノハヽ
     リノ‘ヮ‘リノ <
     (l]つ:)]つ
     く_,._,._,.ゝ
トテテテ…(__/"(__)

101nobodyさん2006/01/06(金) 19:03:58ID:???
ノノノノハヽ  
川`・_・´)|| 
ノ/ /L
ノ ̄ゝ   

102nobodyさん2006/01/07(土) 11:40:38ID:Yrk/+KPl
こたつをprintしよう

103nobodyさん2006/01/07(土) 18:07:56ID:???
仕事でperl使ってる手前、おかしくて仕方が無いw

104nobodyさん2006/01/07(土) 18:20:36ID:???
マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。

105nobodyさん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;

106nobodyさん2006/01/12(木) 13:41:36ID:???
>>105
WebProg板だけに、サーバサイドスクリプトなのね。

107nobodyさん2006/01/26(木) 10:56:37ID:???
Perlを暴走させて、発熱させたPCをコタツにするのですか?

108nobodyさん2006/03/09(木) 16:28:39ID:Fd0dBP0K
プレスコットで電気ストーブを作ってみないか?

109nobodyさん2006/03/09(木) 22:03:38ID:???
発熱させるのはPCだからPCでストーブを作ったことになるのでは?

110nobodyさん2006/03/09(木) 22:40:37ID:???
Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな?

111椎名2006/11/02(木) 22:12:48ID:???
金の亡者

112nobodyさん2006/11/02(木) 23:01:32ID:???
PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら

113nobodyさん2006/11/02(木) 23:55:22ID:???
PCで熱源になるのはCPUだけではない・・っ!
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード・・・このご時世、殆ど全てのパーツが熱源に変わるのだ。

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

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


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

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

114nobodyさん2006/11/05(日) 06:04:34ID:9CpRBd2c
ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。

115nobodyさん2006/11/05(日) 06:05:09ID:???
sage忘れた。sage

116nobodyさん2006/11/05(日) 06:07:53ID:???
>>16
あ?ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が!!

117nobodyさん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)
}

118nobodyさん2006/11/07(火) 05:01:53ID:LezWqaS7
真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。

119nobodyさん2006/11/07(火) 05:39:50ID:???
増やすためにwhile使うだろ

120nobodyさん2006/11/07(火) 14:40:45ID:???
TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです

121nobodyさん2006/11/08(水) 00:07:42ID:???
コヒーポット?

122nobodyさん2006/11/24(金) 11:41:02ID:???
whileってワイルって読むのか・・・

123nobodyさん2006/11/25(土) 14:10:32ID:MAk3S3G9
>>122
まさかお前今までwhileのことをウィルとでも読んでたのか?

124nobodyさん2006/11/25(土) 14:46:21ID:???
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

125nobodyさん2006/12/01(金) 14:52:03ID:???
ホワイルって読んでた

126nobodyさん2006/12/01(金) 19:13:05ID:???
>>125
俺も俺も
単語は米英語発音です。。。

127nobodyさん2006/12/05(火) 03:33:33ID:???
誰かcpanに登録しろよ。

2ch::Stove

128nobodyさん2006/12/05(火) 14:13:33ID:???
先頭に数字は使えないだろ

129nobodyさん2007/06/17(日) 11:18:58ID:CcwzlC8Y
ニちゃん::ストーブ

130nobodyさん2007/06/18(月) 00:08:47ID:???
ここまで続いてると発狂したくなるな

131nobodyさん2007/07/04(水) 22:14:04ID:???


つ10 GOTO 10

132nobodyさん2007/08/24(金) 09:48:27ID:JWUhZcKL
このスレワロスwww

133nobodyさん2007/11/29(木) 10:20:24ID:???
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。

134nobodyさん2007/11/30(金) 00:44:44ID:???
6年目の冬・・・

135nobodyさん2008/01/28(月) 21:08:58ID:???
うー寒っ。
perlでストーブでも作るか。

136nobodyさん2008/02/15(金) 21:44:09ID:A0WXhOsP
perlで電気ストーブってどうやって作るんですか?

137nobodyさん2008/03/09(日) 02:15:39ID:???
Acme::ElectricStove

138nobodyさん2008/06/06(金) 09:18:08ID:???
残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は160円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください

139nobodyさん2008/06/06(金) 11:37:25ID:BYonZ9Xz
っつかPerlでは電気ストーブ以外作ったことないすけど。。。

他に何かできるんすか?

140nobodyさん2008/07/18(金) 10:23:57ID:???
灯油の値上がりが異常だから作ろうよ

141nobodyさん2008/07/30(水) 12:28:11ID:???
おー

142nobodyさん2008/07/30(水) 13:05:13ID:Af+1KtEz
6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス

143nobodyさん2008/07/30(水) 18:49:19ID:???
ほかにどうしろと

144nobodyさん2008/08/13(水) 00:07:33ID:???
Perlって何?

145nobodyさん2008/08/13(水) 00:28:40ID:???
金銀Perlのネックレスの頭文字をとったものです

146nobodyさん2008/09/04(木) 14:24:35ID:???
灯油使わないのはいいよね

147nobodyさん2008/09/05(金) 23:00:48ID:???
今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。

148nobodyさん2008/10/05(日) 22:58:19ID:???
ストーブがPerl製でも燃料は同じです。

149nobodyさん2008/11/07(金) 16:42:28ID:???
>>148
hackが足らない。

150nobodyさん2008/11/26(水) 21:10:25ID:GyupIWdq
6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具

151nobodyさん2008/12/05(金) 15:05:54ID:tuYpMTRh
>>117
STOVE.pmってどこにあります?

152nobodyさん2008/12/14(日) 11:49:38ID:???
ヤマダ電機に売ってましたよ

153nobodyさん2009/03/07(土) 17:07:42ID:svmAHGib
ヤマダ行ってくる

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

155nobodyさん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,";
}

156nobodyさん2009/04/01(水) 11:52:26ID:???
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。

157nobodyさん2009/04/02(木) 08:42:00ID:???
じゃエロ画像でもry

158nobodyさん2010/04/23(金) 09:39:00ID:SlKc4drv
このスレまだあったのか!
最後の書き込みから、1年以上経ってるしw

159nobodyさん2010/04/27(火) 01:31:19ID:???
はっきり言って、Perlはすでに冷たくなっているんだが...

160nobodyさん2010/04/27(火) 01:58:20ID:???
>>117
うはwww まだあったんかこれ
昔書いたコードがwwwくそショボイwwww

161nobodyさん2010/05/12(水) 22:58:27ID:L029Fmu7
いまさらなにいてんだ!おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ!

162nobodyさん2010/05/13(木) 22:39:56ID:???
真珠のネックレスもPerlなんだよ!

163nobodyさん2010/06/09(水) 01:50:48ID:D52jLZq7
理論的には作れる!間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。

164nobodyさん2012/07/04(水) 08:23:46.60ID:???
捕手

165nobodyさん2013/03/09(土) 20:32:38.54ID:???
おう

166nobodyさん2014/08/08(金) 23:16:35.17ID:???
エラー:灯油が切れています!

167nobodyさん2017/01/21(土) 18:57:18.69ID:iuL6ICc7
ぬるぽ

新着レスの表示
レスを投稿する