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

■ このスレッドは過去ログ倉庫に格納されています

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

1 :名無しさん@お腹いっぱい。:02/01/09 22:35 ID:???
俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。

2 :名無しさん@お腹いっぱい。:02/01/09 22:43 ID:???
>>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。

3 :名無しさん@お腹いっぱい。:02/01/10 00:15 ID:???
でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ(泣
# 板違いな話題になりそうだから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でなくても(自爆

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 :名無しさん@Emacs:02/01/10 11:41 ID:???
電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。

15 :これならでけた: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やぞ、わかっとるんか?
あ?コンビ名じゃねぇよバカヤロウ!!
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや?
まぁおれはずっと2番で逝こうと思ってる来てるからな。
EOF
exit;

17 :名無しさん@お腹いっぱい。:02/01/11 00:29 ID:???
あまり面白くないね

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

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

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

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

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


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

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

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

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

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

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


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

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

>>25
?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

while(1) {$i++}


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

68 :nobodyさん: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さん: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さん:04/05/13 20:20 ID:???
Perlじゃ無理だよ 遅いから・・・。

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

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

72 :nobodyさん: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さん: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さん:04/05/31 01:47 ID:???
forkはちょっと違うような…


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


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

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

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

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

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

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

16 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)