02/01/09 22:43
>>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
3:名無しさん＠お腹いっぱい。
02/01/10 00:15
でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ（泣
# 板違いな話題になりそうだからsage
4:名無しさん＠お腹いっぱい。
02/01/10 00:22
>>1
どこで調べたの？
5:
02/01/10 00:41
ところでコタツのコードは、なんで布巻いてあんの？
6:名無しさん＠お腹いっぱい。
02/01/10 00:50 ShbLA3VA
あげ
7:名無しさん＠お腹いっぱい。
02/01/10 01:09
>>5
断線防止でしょうよ。あと、発火防止。
8:中禅寺
02/01/10 05:42 xa3BQJm5
while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
9:名無しさん＠お腹いっぱい。
02/01/10 06:17
>5
触るとなんかホッとするじゃん。だからだよ。
10:名無しさん＠お腹いっぱい。
02/01/10 08:13 oeInymHK
>>1 は、寒かったのでしょうか
11:名無しさん＠お腹いっぱい。
02/01/10 09:18 6z++Gsnn
>1 ｿｰｽ出してよ！
12:名無しさん＠お腹いっぱい。
02/01/10 10:30
>>11 カレーにソース入れる派なのか。
13:
02/01/10 11:17
カレーにソース入れて旨い？
14:名無しさん＠Ｅｍａｃｓ
02/01/10 11:41
電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
15:これならでけた
02/01/10 13:33
Perlでロボットを動かしてストーブを作るのはセーフ？
16:ヽ(´▽｀)/へへっ
02/01/10 23:42 XTHY1MVd
結構簡単ジャン。
#!/usr/2ch/nel
print <<"EOF";
Content-type: text/html
おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番で逝こうと思ってる来てるからな。
EOF
exit;
17:名無しさん＠お腹いっぱい。
02/01/11 00:29
あまり面白くないね
18:nobodyさん
02/03/19 13:04
もうストーブ片づけないとなあ
19:nobodyさん
02/03/19 13:32
>>17
全然面白くねえよ。
20:nobodyさん
02/03/19 14:00 JCJlraCw
負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
21:nobodyさん
02/03/19 14:18
1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
22:nobodyさん
02/03/19 23:09 Uem1heHb
アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
23:a
02/03/21 15:17
>>19にﾜﾛﾀ。
24:nobodyさん
02/03/25 20:38
来年の冬までこのスレ残ってるんだろうなぁ。
25:nobodyさん
02/03/25 21:05 U1PPo9Xf
>>24
そのときになったら俺があげてやるYO!
26:nobodyさん
02/03/25 21:08
冬までにシネ
27:nobodyさん
02/03/27 21:07 8XoneYAB
>>22
その前にAthlonが壊れるぞ
28:nobodyさん
02/07/13 14:39
perlとも電気ストーブとも関係ないのだが
URLﾘﾝｸ(www.goto.info.kanagawa-u.ac.jp)
＞＞１はこの手のネタとかが好きなのかな？
29:nobodyさん
02/08/08 22:43 xShKUXBU
あげ
30:nobodyさん
02/08/08 22:58
>29
>>25
?
31:nobodyさん
02/08/08 23:49 +DvHmUlZ
>>30
?
32:nobodyさん
02/09/04 13:38
冬まで保守するぞ
33:nobodyさん
02/10/20 18:18
ﾎｯｼｭﾎｯｼｭ
34:nobodyさん
02/11/04 13:43
11月ですが、何か?
35: ◆mFK66iWE8c
02/11/05 04:21
もうすぐ冬ですね
36:名無しバサー
02/12/21 05:27
冬やぞ～
37:山崎渉
03/01/15 13:46
（＾＾）
38:山崎渉
03/03/13 17:47
（＾＾）
39:nobodyさん
03/03/15 02:53
Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
40:nobodyさん
03/03/31 22:36
>>39
オムライスならソースよりケチャップがいいな
41:39
03/04/01 23:00
>>40
ナイス突っ込み39
42:山崎渉
03/04/17 12:15
（＾＾）
43:山崎渉
03/04/20 06:19
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
44:山崎渉
03/05/22 02:19
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
45:山崎渉
03/05/28 17:10
∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎―◎ 山崎渉
46:山崎 渉
03/07/15 11:23
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
47:山崎 渉
03/08/02 02:29
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
48:ぼるじょあ ◆ySd1dMH5Gk
03/08/02 05:04
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
49:山崎 渉
03/08/15 23:24
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
50:nobodyさん
03/12/27 07:35
>>24-25
ageとくよ。
51:nobodyさん
03/12/27 12:58 D74m3gSA
優良スレage
52:nobodyさん
03/12/27 18:07
できた！
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
53:nobodyさん
04/01/05 19:22 siolyDpc
Perlで電気グルーブも誰か作ってんか
54:nobodyさん
04/01/07 18:44
>>52
>>8でガイシュツ
55:nobodyさん
04/01/09 07:33
>>52
もう少しおもしろいこと言って欲しかったです
56:nobodyさん
04/01/09 21:39 5rm0Ms8m
>>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
57:nobodyさん
04/01/10 01:08
52==56
58:nobodyさん
04/01/15 16:15
早く作らないと冬が終わるぞ
>>1
59: ◆D5Hate7SLg
04/01/27 01:59
寒いよー
60:nobodyさん
04/02/15 11:24
また来年。
61:nobodyさん
04/03/20 09:44
何度でもよみがえる
62:たかの沙ｙ秦
04/03/23 13:47 i7wFRGEl
age
63:nobodyさん
04/04/08 18:26
“負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
64:nobodyさん
04/04/09 08:17
>>63
電気ストーブは負荷をかけて温度を上げてます。
65:nobodyさん
04/04/22 10:49
while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
66:nobodyさん
04/05/01 22:53
残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
67:nobodyさん
04/05/01 23:46
>>65
ヘアドライヤーになるかも。
68:nobodyさん
04/05/11 21:19
電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。
以下ソース
#!/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さん
04/05/11 21:20
ソースの続き。
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さん
04/05/13 20:20
Perlじゃ無理だよ 遅いから・・・。
71:nobodyさん
04/05/18 04:48 HwISgAOU
超負荷をかけて無限ループ
＆
CPUファン等の冷却装置をはずす。
ほっかほか。(*´д`*)ｱﾊｧ
72:nobodyさん
04/05/18 05:10
ファンがないと熱風出ないだろ。
73:名無しさん＠Linuxザウルス
04/05/18 20:17 i3QZMTMG
まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
74:名無しさん
04/05/18 20:21 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 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 ZuxEnrYy
実際動くところを見せておくれ。
机上の空論になっとる。
77:nobodyさん
04/05/30 19:58 KEV3OJXn
perl -e '`make stove`'
78:nobodyさん
04/05/30 22:38
#!/Perl/bin/perl
while(1)
{
print "あったかほかほか\n";
}
#CPUから暖かい熱が出てきます。
79:nobodyさん
04/05/30 23:57 zsGUscii
while(1) {
fork;
print("あっかたーい");
}
80:nobodyさん
04/05/31 01:47
forkはちょっと違うような…
81:nobodyさん
04/10/02 11:16:52
電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
82:nobodyさん
05/01/11 05:35:23 d1wYSRf9
3年・・・
83:nobodyさん
05/01/14 14:20:44
ああ、あれから3年経ったな。
84:nobodyさん
05/03/13 18:46:07 yV0EPN+6
そして２ヵ月後…
85:nobodyさん
05/03/14 06:52:38
3回目の冬もオワタな
86:nobodyさん
05/03/16 12:46:11
な、なんだこのスレは！激しくﾜﾛﾀよ
87:nobodyさん
05/03/16 14:50:48
electricstove://www.foobar.st/
88:nobodyさん
05/10/03 00:54:00 umVesKWU
Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。
そんなわけで私は地名の方を調べてきます...
89:nobodyさん
05/10/03 01:46:11 RYS/0is/
まだあったのかよ・・・
90:nobodyさん
05/10/06 13:25:51 Yi8E4LoQ
AtomAPI で操作できる電気ストーブにしたら便利じゃね？
91:nobodyさん
05/10/06 13:29:17
あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．
来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
92:nobodyさん
05/10/06 19:26:43 kKdAE9DW
<font face="Webdings" size="5" color="black">Y</font>
93:nobodyさん
05/12/16 14:59:13
ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
94:nobodyさん
05/12/16 15:00:18
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
95:nobodyさん
05/12/16 15:06:33
ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
96:nobodyさん
05/12/18 01:58:04
/＼__,ﾍ,
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
（(^)uu(^)
97:nobodyさん
05/12/24 18:19:51
.○⌒＼
.(二二二)
.__（ ´ⅴ｀）
/ .ｏ つ
(＿;し―Ｊ
98:nobodyさん
05/12/24 18:21:03
.○⌒＼
.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ つ
(＿;し―Ｊ
99:nobodyさん
05/12/25 21:55:41
○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
100:nobodyさん
05/12/29 17:19:57
☆ノﾉハヽ
リﾉ‘ヮ‘ﾘﾉ ＜
(l]つ：)]つ
く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
101:nobodyさん
06/01/06 19:03:58
ﾉノﾉﾉハヽ
川`･_･´)||
ノ/ /L
ノ￣ゝ
102:nobodyさん
06/01/07 11:40:38 Yrk/+KPl
こたつをprintしよう
103:nobodyさん
06/01/07 18:07:56
仕事でperl使ってる手前、おかしくて仕方が無いｗ
104:nobodyさん
06/01/07 18:20:36
マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
105:nobodyさん
06/01/08 21:08:56 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さん
06/01/12 13:41:36
>>105
WebProg板だけに、サーバサイドスクリプトなのね。
107:nobodyさん
06/01/26 10:56:37
Perlを暴走させて、発熱させたＰＣをコタツにするのですか？
108:nobodyさん
06/03/09 16:28:39 Fd0dBP0K
プレスコットで電気ストーブを作ってみないか？
109:nobodyさん
06/03/09 22:03:38
発熱させるのはPCだからPCでストーブを作ったことになるのでは？
110:nobodyさん
06/03/09 22:40:37
Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？
111:椎名
06/11/02 22:12:48
金の亡者
112:nobodyさん
06/11/02 23:01:32
PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
113:nobodyさん
06/11/02 23:55:22
PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。
さぁ！これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ！
CPU：最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU：対応している物で最も高性能な物にしておけば特に問題はない。
HDD：RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源：恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン：高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。
そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”！
・熱を外に逃がさず蓄えるための”コタツ布団”！
うん、僕はコタツ派なんだ許しておくれ。
この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。
114:nobodyさん
06/11/05 06:04:34 9CpRBd2c
ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。
115:nobodyさん
06/11/05 06:05:09
sage忘れた。sage
116:nobodyさん
06/11/05 06:07:53
>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！
117:nobodyさん
06/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)
}
118:nobodyさん
06/11/07 05:01:53 LezWqaS7
真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
119:nobodyさん
06/11/07 05:39:50
増やすためにwhile使うだろ
120:nobodyさん
06/11/07 14:40:45
TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
121:nobodyさん
06/11/08 00:07:42
コヒーポット？
122:nobodyさん
06/11/24 11:41:02
whileってワイルって読むのか・・・
123:nobodyさん
06/11/25 14:10:32 MAk3S3G9
>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？
124:nobodyさん
06/11/25 14:46:21
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
125:nobodyさん
06/12/01 14:52:03
ホワイルって読んでた
126:nobodyさん
06/12/01 19:13:05
>>125
俺も俺も
単語は米英語発音です。。。
127:nobodyさん
06/12/05 03:33:33
誰かcpanに登録しろよ。
2ch::Stove
128:nobodyさん
06/12/05 14:13:33
先頭に数字は使えないだろ
129:nobodyさん
07/06/17 11:18:58 CcwzlC8Y
ニちゃん::ストーブ
130:nobodyさん
07/06/18 00:08:47
ここまで続いてると発狂したくなるな
131:nobodyさん
07/07/04 22:14:04
つ10 GOTO 10
132:nobodyさん
07/08/24 09:48:27 JWUhZcKL
このスレﾜﾛｽｗｗｗ
133:nobodyさん
07/11/29 10:20:24
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
134:nobodyさん
07/11/30 00:44:44
6年目の冬･･･
135:nobodyさん
08/01/28 21:08:58
うー寒っ。
perlでストーブでも作るか。
136:nobodyさん
08/02/15 21:44:09 A0WXhOsP
perlで電気ストーブってどうやって作るんですか?
137:nobodyさん
08/03/09 02:15:39
Acme::ElectricStove
138:nobodyさん
08/06/06 09:18:08
残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
139:nobodyさん
08/06/06 11:37:25 BYonZ9Xz
っつかPerlでは電気ストーブ以外作ったことないすけど。。。
他に何かできるんすか？
140:nobodyさん
08/07/18 10:23:57
灯油の値上がりが異常だから作ろうよ
141:nobodyさん
08/07/30 12:28:11
おー
142:nobodyさん
08/07/30 13:05:13 Af+1KtEz
6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス
143:nobodyさん
08/07/30 18:49:19
ほかにどうしろと
144:nobodyさん
08/08/13 00:07:33
Perlって何？
145:nobodyさん
08/08/13 00:28:40
金銀Perlのネックレスの頭文字をとったものです
146:nobodyさん
08/09/04 14:24:35
灯油使わないのはいいよね
147:nobodyさん
08/09/05 23:00:48
今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。
148:nobodyさん
08/10/05 22:58:19
ストーブがPerl製でも燃料は同じです。
149:nobodyさん
08/11/07 16:42:28
>>148
hackが足らない。
150:nobodyさん
08/11/26 21:10:25 GyupIWdq
6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具
151:nobodyさん
08/12/05 15:05:54 tuYpMTRh
>>117
STOVE.pmってどこにあります？
152:nobodyさん
08/12/14 11:49:38
ヤマダ電機に売ってましたよ
153:nobodyさん
09/03/07 17:07:42 svmAHGib
ヤマダ行ってくる
154:nobodyさん
09/03/09 14:05:48
あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)
155:nobodyさん
09/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 => "URLﾘﾝｸ($ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME})");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}
156:nobodyさん
09/04/01 11:52:26
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
157:nobodyさん
09/04/02 08:42:00
じゃエロ画像でもｒｙ