２ちゃんねるスマホ用 ■掲示板に戻る■ 全部 1- 最新50

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

1 ：名無しさん＠お腹いっぱい。：02/01/09 22:35 ID:???.net: 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
2 ：名無しさん＠お腹いっぱい。：02/01/09 22:43 ID:???.net: >>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
3 ：名無しさん＠お腹いっぱい。：02/01/10 00:15 ID:???.net: でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ（泣
# 板違いな話題になりそうだからsage
4 ：名無しさん＠お腹いっぱい。：02/01/10 00:22 ID:???.net: >>1
どこで調べたの？
5 ：　　　　：02/01/10 00:41 ID:???.net: ところでコタツのコードは、なんで布巻いてあんの？
6 ：名無しさん＠お腹いっぱい。：02/01/10 00:50 ID:ShbLA3VA.net: あげ
7 ：名無しさん＠お腹いっぱい。：02/01/10 01:09 ID:???.net: >>5
断線防止でしょうよ。あと、発火防止。
8 ：中禅寺：02/01/10 05:42 ID:xa3BQJm5.net: while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
9 ：名無しさん＠お腹いっぱい。：02/01/10 06:17 ID:???.net: >5
触るとなんかホッとするじゃん。だからだよ。
10 ：名無しさん＠お腹いっぱい。：02/01/10 08:13 ID:oeInymHK.net: >>1 は、寒かったのでしょうか
11 ：名無しさん＠お腹いっぱい。：02/01/10 09:18 ID:6z++Gsnn.net: >1　ｿｰｽ出してよ！
12 ：名無しさん＠お腹いっぱい。：02/01/10 10:30 ID:???.net: >>11 カレーにソース入れる派なのか。
13 ：：02/01/10 11:17 ID:???.net: カレーにソース入れて旨い？
14 ：名無しさん＠Ｅｍａｃｓ：02/01/10 11:41 ID:???.net: 電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
15 ：これならでけた：02/01/10 13:33 ID:???.net: Perlでロボットを動かしてストーブを作るのはセーフ？
16 ：ヽ(´▽｀)/へへっ：02/01/10 23:42 ID:XTHY1MVd.net: 結構簡単ジャン。
#!/usr/2ch/nel

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

おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番で逝こうと思ってる来てるからな。
EOF
exit;
17 ：名無しさん＠お腹いっぱい。：02/01/11 00:29 ID:???.net: あまり面白くないね
18 ：nobodyさん：02/03/19 13:04 ID:???.net: もうストーブ片づけないとなあ
19 ：nobodyさん：02/03/19 13:32 ID:???.net: >>17
全然面白くねえよ。
20 ：nobodyさん：02/03/19 14:00 ID:JCJlraCw.net: 負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
21 ：nobodyさん：02/03/19 14:18 ID:???.net: 1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
22 ：nobodyさん：02/03/19 23:09 ID:Uem1heHb.net: アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
23 ：a：02/03/21 15:17 ID:???.net: >>19にﾜﾛﾀ。
24 ：nobodyさん：02/03/25 20:38 ID:???.net: 来年の冬までこのスレ残ってるんだろうなぁ。
25 ：nobodyさん：02/03/25 21:05 ID:U1PPo9Xf.net: >>24
そのときになったら俺があげてやるYO!
26 ：nobodyさん：02/03/25 21:08 ID:???.net: 冬までにシネ
27 ：nobodyさん：02/03/27 21:07 ID:8XoneYAB.net: >>22
その前にAthlonが壊れるぞ
28 ：nobodyさん：02/07/13 14:39 ID:???.net: perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
29 ：nobodyさん：02/08/08 22:43 ID:xShKUXBU.net: あげ
30 ：nobodyさん：02/08/08 22:58 ID:???.net: >29

>>25
?
31 ：nobodyさん：02/08/08 23:49 ID:+DvHmUlZ.net: >>30
?
32 ：nobodyさん：02/09/04 13:38 ID:???.net: 冬まで保守するぞ
33 ：nobodyさん：02/10/20 18:18 ID:???.net: ﾎｯｼｭﾎｯｼｭ
34 ：nobodyさん：02/11/04 13:43 ID:???.net: 11月ですが、何か?
35 ： ◆mFK66iWE8c ：02/11/05 04:21 ID:???.net: もうすぐ冬ですね
36 ：名無しバサー：02/12/21 05:27 ID:???.net: 冬やぞ～
37 ：山崎渉：03/01/15 13:46 ID:???.net: （＾＾）
38 ：山崎渉：03/03/13 17:47 ID:???.net: （＾＾）
39 ：nobodyさん：03/03/15 02:53 ID:???.net: Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
40 ：nobodyさん：03/03/31 22:36 ID:???.net: >>39
オムライスならソースよりケチャップがいいな
41 ：39：03/04/01 23:00 ID:???.net: >>40
ナイス突っ込み39
42 ：山崎渉：03/04/17 12:15 ID:???.net: （＾＾）
43 ：山崎渉：03/04/20 06:19 ID:???.net: 　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）
44 ：山崎渉：03/05/22 02:19 ID:???.net: ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
45 ：山崎渉：03/05/28 17:10 ID:???.net: 　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
46 ：山崎渉：03/07/15 11:23 ID:???.net: 　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
47 ：山崎渉：03/08/02 02:29 ID:???.net: 　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）
48 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 05:04 ID:???.net: 　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
49 ：山崎渉：03/08/15 23:24 ID:???.net: 　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
50 ：nobodyさん：03/12/27 07:35 ID:???.net: >>24-25
ageとくよ。
51 ：nobodyさん：03/12/27 12:58 ID:D74m3gSA.net: 優良スレage
52 ：nobodyさん：03/12/27 18:07 ID:???.net: できた！

while(1) {$i++}

CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
53 ：nobodyさん：04/01/05 19:22 ID:siolyDpc.net: Perlで電気グルーブも誰か作ってんか
54 ：nobodyさん：04/01/07 18:44 ID:???.net: >>52
>>8でガイシュツ
55 ：nobodyさん：04/01/09 07:33 ID:???.net: >>52
もう少しおもしろいこと言って欲しかったです
56 ：nobodyさん：04/01/09 21:39 ID:5rm0Ms8m.net: >>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
57 ：nobodyさん：04/01/10 01:08 ID:???.net: 52==56
58 ：nobodyさん：04/01/15 16:15 ID:???.net: 早く作らないと冬が終わるぞ
>>1
59 ： ◆D5Hate7SLg ：04/01/27 01:59 ID:???.net: 寒いよー
60 ：nobodyさん：04/02/15 11:24 ID:???.net: また来年。
61 ：nobodyさん：04/03/20 09:44 ID:???.net: 何度でもよみがえる
62 ：たかの沙ｙ秦：04/03/23 13:47 ID:i7wFRGEl.net: age
63 ：nobodyさん：04/04/08 18:26 ID:???.net: “負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
64 ：nobodyさん：04/04/09 08:17 ID:???.net: >>63
電気ストーブは負荷をかけて温度を上げてます。
65 ：nobodyさん：04/04/22 10:49 ID:???.net: while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
66 ：nobodyさん：04/05/01 22:53 ID:???.net: 残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
67 ：nobodyさん：04/05/01 23:46 ID:???.net: >>65
ヘアドライヤーになるかも。
68 ：nobodyさん：04/05/11 21:19 ID:???.net: 電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。

以下ソース
#!/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 ID:???.net: ソースの続き。

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 ID:???.net: Perlじゃ無理だよ　遅いから・・・。
71 ：nobodyさん：04/05/18 04:48 ID:HwISgAOU.net: 超負荷をかけて無限ループ
　　　　　　　＆
CPUファン等の冷却装置をはずす。

ほっかほか。(*´д`*)ｱﾊｧ
72 ：nobodyさん：04/05/18 05:10 ID:???.net: ファンがないと熱風出ないだろ。
73 ：名無しさん＠Linuxザウルス：04/05/18 20:17 ID:i3QZMTMG.net: まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
74 ：名無しさん：04/05/18 20:21 ID:i3QZMTMG.net: 電気ストーブ完成版
#!/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 ID:i3QZMTMG.net: 電気ストーブ完成版
つづき
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 ID:ZuxEnrYy.net: 実際動くところを見せておくれ。
机上の空論になっとる。
77 ：nobodyさん：04/05/30 19:58 ID:KEV3OJXn.net: perl -e '`make stove`'
78 ：nobodyさん：04/05/30 22:38 ID:???.net: #!/Perl/bin/perl

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

#CPUから暖かい熱が出てきます。
79 ：nobodyさん：04/05/30 23:57 ID:zsGUscii.net: while(1) {
fork;
print("あっかたーい");
}
80 ：nobodyさん：04/05/31 01:47 ID:???.net: forkはちょっと違うような…
81 ：nobodyさん：04/10/02 11:16:52 ID:???.net: 電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
82 ：nobodyさん：05/01/11 05:35:23 ID:d1wYSRf9.net: 3年・・・
83 ：nobodyさん：05/01/14 14:20:44 ID:???.net: ああ、あれから3年経ったな。
84 ：nobodyさん：05/03/13 18:46:07 ID:yV0EPN+6.net: そして２ヵ月後…
85 ：nobodyさん：05/03/14 06:52:38 ID:???.net: 3回目の冬もオワタな
86 ：nobodyさん：05/03/16 12:46:11 ID:???.net: な、なんだこのスレは！激しくﾜﾛﾀよ
87 ：nobodyさん：05/03/16 14:50:48 ID:???.net: electricstove://www.foobar.st/
88 ：nobodyさん：2005/10/03(月) 00:54:00 ID:umVesKWU.net: Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。

そんなわけで私は地名の方を調べてきます...
89 ：nobodyさん：2005/10/03(月) 01:46:11 ID:RYS/0is/.net: まだあったのかよ・・・
90 ：nobodyさん：2005/10/06(木) 13:25:51 ID:Yi8E4LoQ.net: AtomAPI で操作できる電気ストーブにしたら便利じゃね？
91 ：nobodyさん：2005/10/06(木) 13:29:17 ID:???.net: あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．

来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
92 ：nobodyさん：2005/10/06(木) 19:26:43 ID:kKdAE9DW.net: <font face="Webdings" size="5" color="black">Y</font>
93 ：nobodyさん：2005/12/16(金) 14:59:13 ID:???.net: ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
94 ：nobodyさん：2005/12/16(金) 15:00:18 ID:???.net: ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
95 ：nobodyさん：2005/12/16(金) 15:06:33 ID:???.net: ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
96 ：nobodyさん：2005/12/18(日) 01:58:04 ID:???.net: 　　/＼__,ﾍ,
　ﾉノﾉﾉハヽ
　リﾉ‘ヮ‘ﾘﾉ
　（(^)uu(^)
97 ：nobodyさん：2005/12/24(土) 18:19:51 ID:???.net: 　.○⌒＼
　.(二二二)
.__（　´ⅴ｀）
/ .ｏ　　　つ
(＿;し―Ｊ
98 ：nobodyさん：2005/12/24(土) 18:21:03 ID:???.net: 　.○⌒＼
　.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ　　　つ
(＿;し―Ｊ
99 ：nobodyさん：2005/12/25(日) 21:55:41 ID:???.net: ○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
100 ：nobodyさん：2005/12/29(木) 17:19:57 ID:???.net: 　　　　　☆ノﾉハヽ
　　　　　リﾉ‘ヮ‘ﾘﾉ＜
　　　　　(l]つ：)]つ
　　　　　く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
101 ：nobodyさん：2006/01/06(金) 19:03:58 ID:???.net: ﾉノﾉﾉハヽ　　
川`･_･´)||　
ノ/　/L
ノ￣ゝ　　　
102 ：nobodyさん：2006/01/07(土) 11:40:38 ID:Yrk/+KPl.net: こたつをprintしよう
103 ：nobodyさん：2006/01/07(土) 18:07:56 ID:???.net: 仕事でperl使ってる手前、おかしくて仕方が無いｗ
104 ：nobodyさん：2006/01/07(土) 18:20:36 ID:???.net: マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
105 ：nobodyさん：2006/01/08(日) 21:08:56 ID:jjfaosB+.net: >>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さん：2006/01/12(木) 13:41:36 ID:???.net: >>105
WebProg板だけに、サーバサイドスクリプトなのね。
107 ：nobodyさん：2006/01/26(木) 10:56:37 ID:???.net: Perlを暴走させて、発熱させたＰＣをコタツにするのですか？
108 ：nobodyさん：2006/03/09(木) 16:28:39 ID:Fd0dBP0K.net: プレスコットで電気ストーブを作ってみないか？
109 ：nobodyさん：2006/03/09(木) 22:03:38 ID:???.net: 発熱させるのはPCだからPCでストーブを作ったことになるのでは？
110 ：nobodyさん：2006/03/09(木) 22:40:37 ID:???.net: Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？
111 ：椎名：2006/11/02(木) 22:12:48 ID:???.net: 金の亡者
112 ：nobodyさん：2006/11/02(木) 23:01:32 ID:???.net: PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
113 ：nobodyさん：2006/11/02(木) 23:55:22 ID:???.net: PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。

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

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

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

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

2ch::Stove
128 ：nobodyさん：2006/12/05(火) 14:13:33 ID:???.net: 先頭に数字は使えないだろ
129 ：nobodyさん：2007/06/17(日) 11:18:58 ID:CcwzlC8Y.net: ニちゃん::ストーブ
130 ：nobodyさん：2007/06/18(月) 00:08:47 ID:???.net: ここまで続いてると発狂したくなるな
131 ：nobodyさん：2007/07/04(水) 22:14:04 ID:???.net: つ10 GOTO 10
132 ：nobodyさん：2007/08/24(金) 09:48:27 ID:JWUhZcKL.net: このスレﾜﾛｽｗｗｗ
133 ：nobodyさん：2007/11/29(木) 10:20:24 ID:???.net: 段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
134 ：nobodyさん：2007/11/30(金) 00:44:44 ID:???.net: 6年目の冬･･･
135 ：nobodyさん：2008/01/28(月) 21:08:58 ID:???.net: うー寒っ。
perlでストーブでも作るか。
136 ：nobodyさん：2008/02/15(金) 21:44:09 ID:A0WXhOsP.net: perlで電気ストーブってどうやって作るんですか?
137 ：nobodyさん：2008/03/09(日) 02:15:39 ID:???.net: Acme::ElectricStove
138 ：nobodyさん：2008/06/06(金) 09:18:08 ID:???.net: 残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
139 ：nobodyさん：2008/06/06(金) 11:37:25 ID:BYonZ9Xz.net: っつかPerlでは電気ストーブ以外作ったことないすけど。。。

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

#!/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,";
}
156 ：nobodyさん：2009/04/01(水) 11:52:26 ID:???.net: 俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
157 ：nobodyさん：2009/04/02(木) 08:42:00 ID:???.net: じゃエロ画像でもｒｙ
158 ：nobodyさん：2010/04/23(金) 09:39:00 ID:SlKc4drv.net: このスレまだあったのか！
最後の書き込みから、1年以上経ってるしｗ
159 ：nobodyさん：2010/04/27(火) 01:31:19 ID:???.net: はっきり言って、Perlはすでに冷たくなっているんだが...
160 ：nobodyさん：2010/04/27(火) 01:58:20 ID:???.net: >>117
うはｗｗｗ　まだあったんかこれ
昔書いたコードがｗｗｗくそショボイｗｗｗｗ
161 ：nobodyさん：2010/05/12(水) 22:58:27 ID:L029Fmu7.net: いまさらなにいてんだ！おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ！
162 ：nobodyさん：2010/05/13(木) 22:39:56 ID:???.net: 真珠のネックレスもPerlなんだよ！
163 ：nobodyさん：2010/06/09(水) 01:50:48 ID:D52jLZq7.net: 理論的には作れる！間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。
164 ：nobodyさん：2012/07/04(水) 08:23:46.60 ID:???.net: 捕手
165 ：nobodyさん：2013/03/09(土) 20:32:38.54 ID:???.net: おう
166 ：nobodyさん：2016/01/06(水) 01:17:47.85 ID:7+uX2o1rO: あけおめ
167 ：nobodyさん：2017/01/21(土) 18:57:18.69 ID:iuL6ICc7.net: ぬるぽ
168 ：nobodyさん：2017/12/30(土) 15:53:31.12 ID:YhlYw6jg.net: 誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

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

IJOVM998Z5
169 ：nobodyさん：2018/09/21(金) 23:04:28.22 ID:???.net: 多分買ってきたほうが早い
170 ：nobodyさん：2023/11/30(木) 17:35:38.90 ID:5IiPXXczn: 岸田異次元増税憲法カ゛ン無視地球破壞霸権主義文雄の所信表明演説（直訳）
「気候変動地球破壊災害連発私は何より強盗殺人に重点を置いていく変化の流れをつかみ取るための１丁目１番地は私権侵害た゛』
世界最悪の脱炭素拒否テ口國家に送られる化石賞連続受賞して世界中から非難されなか゛ら憲法13条25条29条と公然と無視して力による‐方的な
現状変更によってクソ航空機倍増．閑静な住宅地から都心まて゛数珠つなぎて゛鉄道の30倍以上もの莫大な温室効果カ゛スまき散らして騒音まみれ
氣候変動させて海水温上昇させてかつてない量の水蒸氣發生させて土砂崩れ、洪水，暴風．熱中症にと災害連發させて住民の生命と財産を
破壞して静音が生命線の知的産業壊滅、孑供の学習環境まて゛奪いながらケ─サ゛ヰだの笑わせんなや
要するにやることなすこと全てが自民公明の私利私欲利権のためのマッチポンプと理解すれは゛何もかも完璧に説明つくのが分かるだろ
民主主義國なら間違いなくあちこちて゛煙が上がってるだろうにいまだにこいつらに政権やらせてるNPCジャップに北朝鮮人民まて゛ドン引きだな
(羽田)ttps://www.call4.jp/info.php?type=items&id=I0000062 , ttps://haneda-project.jimdofree.com/
(成田)ttps://n-souonhigaisosyoudan.amebaownd.com/
(テ口組織)ttps://i.imgur.com/hnli1ga.jpeg

30 KB

新着レスの表示

掲示板に戻る全部前100 次100 最新50

read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★