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