- 1 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/09 22:35 ID:???]
- 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 6 名前：名無しさん＠お腹いっぱい。 [02/01/10 00:50 ID:ShbLA3VA]
- あげ
- 7 名前：名無しさん＠お腹いっぱい。 mailto:age [02/01/10 01:09 ID:???]
- >>5
断線防止でしょうよ。あと、発火防止。
- 8 名前：中禅寺 [02/01/10 05:42 ID:xa3BQJm5]
- while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
- 9 名前：名無しさん＠お腹いっぱい。 mailto:sage [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 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/10 10:30 ID:???]
- >>11 カレーにソース入れる派なのか。
- 13 名前： mailto:sage [02/01/10 11:17 ID:???]
- カレーにソース入れて旨い？
- 14 名前：名無しさん＠Ｅｍａｃｓ mailto:sage [02/01/10 11:41 ID:???]
- 電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
- 15 名前：これならでけた mailto:sage [02/01/10 13:33 ID:???]
- Perlでロボットを動かしてストーブを作るのはセーフ？
- 16 名前：ヽ(´▽｀)/へへっ [02/01/10 23:42 ID:XTHY1MVd]
- 結構簡単ジャン。
#!/usr/2ch/nel
print <<"EOF";
Content-type: text/html
おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番で逝こうと思ってる来てるからな。
EOF
exit;
- 17 名前：名無しさん＠お腹いっぱい。 mailto:sage [02/01/11 00:29 ID:???]
- あまり面白くないね
- 18 名前：nobodyさん mailto: [02/03/19 13:04 ID:???]
- もうストーブ片づけないとなあ
- 19 名前：nobodyさん mailto:sage [02/03/19 13:32 ID:???]
- >>17
全然面白くねえよ。
- 20 名前：nobodyさん [02/03/19 14:00 ID:JCJlraCw]
- 負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
- 21 名前：nobodyさん mailto:sage [02/03/19 14:18 ID:???]
- 1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
- 22 名前：nobodyさん [02/03/19 23:09 ID:Uem1heHb]
- アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
- 23 名前：a mailto:sage [02/03/21 15:17 ID:???]
- >>19にﾜﾛﾀ。
- 24 名前：nobodyさん mailto: [02/03/25 20:38 ID:???]
- 来年の冬までこのスレ残ってるんだろうなぁ。
- 25 名前：nobodyさん [02/03/25 21:05 ID:U1PPo9Xf]
- >>24
そのときになったら俺があげてやるYO!
- 26 名前：nobodyさん mailto:sage [02/03/25 21:08 ID:???]
- 冬までにシネ
- 27 名前：nobodyさん [02/03/27 21:07 ID:8XoneYAB]
- >>22
その前にAthlonが壊れるぞ
- 28 名前：nobodyさん mailto:sage [02/07/13 14:39 ID:???]
- perlとも電気ストーブとも関係ないのだが
www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
- 29 名前：nobodyさん [02/08/08 22:43 ID:xShKUXBU]
- あげ
- 30 名前：nobodyさん mailto:sage [02/08/08 22:58 ID:???]
- >29
>>25
?
- 31 名前：nobodyさん [02/08/08 23:49 ID:+DvHmUlZ]
- >>30
?
- 32 名前：nobodyさん mailto:sage [02/09/04 13:38 ID:???]
- 冬まで保守するぞ
- 33 名前：nobodyさん mailto:sage [02/10/20 18:18 ID:???]
- ﾎｯｼｭﾎｯｼｭ
- 34 名前：nobodyさん mailto:sage [02/11/04 13:43 ID:???]
- 11月ですが、何か?
- 35 名前： ◆mFK66iWE8c mailto:sage [02/11/05 04:21 ID:???]
- もうすぐ冬ですね
- 36 名前：名無しバサー mailto:sage [02/12/21 05:27 ID:???]
- 冬やぞ～
- 37 名前：山崎渉 mailto:（＾＾）sage [03/01/15 13:46 ID:???]
- （＾＾）
- 38 名前：山崎渉 mailto:（＾＾） [03/03/13 17:47 ID:???]
- （＾＾）
- 39 名前：nobodyさん mailto:sage [03/03/15 02:53 ID:???]
- Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
- 40 名前：nobodyさん mailto:sage [03/03/31 22:36 ID:???]
- >>39
オムライスならソースよりケチャップがいいな
- 41 名前：39 mailto:sage [03/04/01 23:00 ID:???]
- >>40
ナイス突っ込み39
- 42 名前：山崎渉 mailto:（＾＾） [03/04/17 12:15 ID:???]
- （＾＾）
- 43 名前：山崎渉 mailto:（＾＾）sage [03/04/20 06:19 ID:???]
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 44 名前：山崎渉 mailto:（＾＾） [03/05/22 02:19 ID:???]
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 45 名前：山崎渉 mailto:（＾＾） [03/05/28 17:10 ID:???]
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 46 名前：山崎 渉 mailto:（＾＾） [03/07/15 11:23 ID:???]
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 47 名前：山崎 渉 mailto:（＾＾）sage [03/08/02 02:29 ID:???]
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 48 名前：ぼるじょあ ◆ySd1dMH5Gk mailto:（＾＾） [03/08/02 05:04 ID:???]
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 49 名前：山崎 渉 mailto:（＾＾） [03/08/15 23:24 ID:???]
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 50 名前：nobodyさん mailto: [03/12/27 07:35 ID:???]
- >>24-25
ageとくよ。
- 51 名前：nobodyさん [03/12/27 12:58 ID:D74m3gSA]
- 優良スレage
- 52 名前：nobodyさん mailto:sage [03/12/27 18:07 ID:???]
- できた！
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
- 53 名前：nobodyさん [04/01/05 19:22 ID:siolyDpc]
- Perlで電気グルーブも誰か作ってんか
- 54 名前：nobodyさん mailto:sage [04/01/07 18:44 ID:???]
- >>52
>>8でガイシュツ
- 55 名前：nobodyさん mailto:age [04/01/09 07:33 ID:???]
- >>52
もう少しおもしろいこと言って欲しかったです
- 56 名前：nobodyさん [04/01/09 21:39 ID:5rm0Ms8m]
- >>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
- 57 名前：nobodyさん mailto:sage [04/01/10 01:08 ID:???]
- 52==56
- 58 名前：nobodyさん mailto:sage [04/01/15 16:15 ID:???]
- 早く作らないと冬が終わるぞ
>>1
- 59 名前： ◆D5Hate7SLg mailto:sage [04/01/27 01:59 ID:???]
- 寒いよー
- 60 名前：nobodyさん mailto:sage [04/02/15 11:24 ID:???]
- また来年。
- 61 名前：nobodyさん mailto:sage [04/03/20 09:44 ID:???]
- 何度でもよみがえる
- 62 名前：たかの沙ｙ秦 [04/03/23 13:47 ID:i7wFRGEl]
- age
- 63 名前：nobodyさん mailto:age [04/04/08 18:26 ID:???]
- “負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
- 64 名前：nobodyさん mailto:sage [04/04/09 08:17 ID:???]
- >>63
電気ストーブは負荷をかけて温度を上げてます。
- 65 名前：nobodyさん mailto:sage [04/04/22 10:49 ID:???]
- while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
- 66 名前：nobodyさん mailto:age [04/05/01 22:53 ID:???]
- 残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
- 67 名前：nobodyさん mailto:o [04/05/01 23:46 ID:???]
- >>65
ヘアドライヤーになるかも。
- 68 名前：nobodyさん mailto: [04/05/11 21:19 ID:???]
- 電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。
以下ソース
#!/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さん mailto: [04/05/11 21:20 ID:???]
- ソースの続き。
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さん mailto:sage [04/05/13 20:20 ID:???]
- Perlじゃ無理だよ 遅いから・・・。
- 71 名前：nobodyさん [04/05/18 04:48 ID:HwISgAOU]
- 超負荷をかけて無限ループ
＆
CPUファン等の冷却装置をはずす。
ほっかほか。(*´д`*)ｱﾊｧ
- 72 名前：nobodyさん mailto:sage [04/05/18 05:10 ID:???]
- ファンがないと熱風出ないだろ。
- 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";
つづく
- 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";
- 76 名前：nobodyさん [04/05/22 03:25 ID:ZuxEnrYy]
- 実際動くところを見せておくれ。
机上の空論になっとる。
- 77 名前：nobodyさん [04/05/30 19:58 ID:KEV3OJXn]
- perl -e '`make stove`'
- 78 名前：nobodyさん mailto:sage [04/05/30 22:38 ID:???]
- #!/Perl/bin/perl
while(1)
{
print "あったかほかほか\n";
}
#CPUから暖かい熱が出てきます。
- 79 名前：nobodyさん [04/05/30 23:57 ID:zsGUscii]
- while(1) {
fork;
print("あっかたーい");
}
- 80 名前：nobodyさん mailto:sage [04/05/31 01:47 ID:???]
- forkはちょっと違うような…
- 81 名前：nobodyさん mailto:sage [04/10/02 11:16:52 ID:???]
- 電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
- 82 名前：nobodyさん [05/01/11 05:35:23 ID:d1wYSRf9]
- 3年・・・
- 83 名前：nobodyさん mailto:sage [05/01/14 14:20:44 ID:???]
- ああ、あれから3年経ったな。
- 84 名前：nobodyさん [05/03/13 18:46:07 ID:yV0EPN+6]
- そして２ヵ月後…
- 85 名前：nobodyさん mailto:sage [05/03/14 06:52:38 ID:???]
- 3回目の冬もオワタな
- 86 名前：nobodyさん mailto:sage [05/03/16 12:46:11 ID:???]
- な、なんだこのスレは！激しくﾜﾛﾀよ
- 87 名前：nobodyさん mailto:sage [05/03/16 14:50:48 ID:???]
- electricstove://www.foobar.st/
- 88 名前：nobodyさん [2005/10/03(月) 00:54:00 ID:umVesKWU]
- 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 で操作できる電気ストーブにしたら便利じゃね？
- 91 名前：nobodyさん mailto:sage [2005/10/06(木) 13:29:17 ID:???]
- あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．
来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
- 92 名前：nobodyさん [2005/10/06(木) 19:26:43 ID:kKdAE9DW]
- <font face="Webdings" size="5" color="black">Y</font>
- 93 名前：nobodyさん mailto:sage [2005/12/16(金) 14:59:13 ID:???]
- ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
- 94 名前：nobodyさん mailto:sage [2005/12/16(金) 15:00:18 ID:???]
- ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
- 95 名前：nobodyさん mailto:sage [2005/12/16(金) 15:06:33 ID:???]
- ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
- 96 名前：nobodyさん mailto:sage [2005/12/18(日) 01:58:04 ID:???]
- /＼__,ﾍ,
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
（(^)uu(^)
- 97 名前：nobodyさん mailto:sage [2005/12/24(土) 18:19:51 ID:???]
- .○⌒＼
.(二二二)
.__（ ´ⅴ｀）
/ .ｏ つ
(＿;し―Ｊ
- 98 名前：nobodyさん mailto:sage [2005/12/24(土) 18:21:03 ID:???]
- .○⌒＼
.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ つ
(＿;し―Ｊ
- 99 名前：nobodyさん mailto:sage [2005/12/25(日) 21:55:41 ID:???]
- ○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
- 100 名前：nobodyさん mailto:sage [2005/12/29(木) 17:19:57 ID:???]
- ☆ノﾉハヽ
リﾉ‘ヮ‘ﾘﾉ ＜
(l]つ：)]つ
く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
- 101 名前：nobodyさん mailto:sage [2006/01/06(金) 19:03:58 ID:???]
- ﾉノﾉﾉハヽ
川`･_･´)||
ノ/ /L
ノ￣ゝ
- 102 名前：nobodyさん [2006/01/07(土) 11:40:38 ID:Yrk/+KPl]
- こたつをprintしよう
- 103 名前：nobodyさん mailto:sage [2006/01/07(土) 18:07:56 ID:???]
- 仕事でperl使ってる手前、おかしくて仕方が無いｗ
- 104 名前：nobodyさん mailto:sage [2006/01/07(土) 18:20:36 ID:???]
- マルチスレッドで、それぞれに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;
- 106 名前：nobodyさん mailto:sage [2006/01/12(木) 13:41:36 ID:???]
- >>105
WebProg板だけに、サーバサイドスクリプトなのね。
|
 |
