TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
OpenPNE設定について
【PHP】ツリー掲示板を作ろう
デザイナーとの連携
【Go言語】 webapp GO Part1 【Golang】
新しくperlで標準で欲しい関数は？
スクリプト言語と開発効率について
Velocity vs JSPでVelocityを称えるスレ
Apache2.x 【新鯖入荷しました】
Ajax vs Javaアプレット vs FLASH
【PHP】フレームワークMapleに舌鼓
Perlで電気ストーブを作る方法
- 1 ：02/01/09 ～ 最終レス ：2018/09/21
- 俺の調べによるとPerlという言語は元々電気ストーブの開発の為に
生み出された言語だというではないか。では、Perlでどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 2 ：
- >>1の調べによると>>1は元々電気ストーブの開発の為に
生み出されたというではないか。では、>>1はどのようなコードを
書いたら電気ストーブが作れるのか皆で考えようじゃないか。
- 3 ：
- でも笑い事じゃないんだよな。
コンピュータで何ができるか・何ができないかも知らずに
無謀な事を言い出す上司はどこにでも居るもんだ（泣
# 板違いな話題になりそうだからsage
- 4 ：
- >>1
どこで調べたの？
- 5 ：
- ところでコタツのコードは、なんで布巻いてあんの？
- 6 ：
- あげ
- 7 ：
- >>5
断線防止でしょうよ。あと、発火防止。
- 8 ：
- while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか？
...って、別にPerlでなくても（自爆
- 9 ：
- >5
触るとなんかホッとするじゃん。だからだよ。
- 10 ：
- >>1 は、寒かったのでしょうか
- 11 ：
- >1 ｿｰｽ出してよ！
- 12 ：
- >>11 カレーにソース入れる派なのか。
- 13 ：
- カレーにソース入れて旨い？
- 14 ：
- 電気ストーブは天板が平じゃないからカレーは難しいんじゃないかな。
やっぱ石油ストーブじゃないと。
- 15 ：
- Perlでロボットを動かしてストーブを作るのはセーフ？
- 16 ：
- 結構簡単ジャン。
#!/usr/2ch/nel
print <<"EOF";
Content-type: text/html
おい、電気ストーブ買って来てくれ。（至急）
あと領収書は130Rやぞ、わかっとるんか？
あ？コンビ名じゃねぇよバカヤロウ！！
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや？
まぁおれはずっと２番で逝こうと思ってる来てるからな。
EOF
exit;
- 17 ：
- あまり面白くないね
- 18 ：
- もうストーブ片づけないとなあ
- 19 ：
- >>17
全然面白くねえよ。
- 20 ：
- 負荷のかかるコード書いて、CPUで暖まるんじゃないの？
円周率の計算とか、フラクタルの計算するとか。
せいぜいウズラの目玉焼きつくれるくらいだけどね。
- 21 ：
- 1chip Linuxと拡張SRAMにPerlとかが入れば電気ストーブ制御も可能かもしれない。
- 22 ：
- アスロンXPにでっかくて分厚い銅板をつけて無限ループさしてやればホットプレートにはなるかも知れない。
- 23 ：
- >>19にﾜﾛﾀ。
- 24 ：
- 来年の冬までこのスレ残ってるんだろうなぁ。
- 25 ：
- >>24
そのときになったら俺があげてやるYO!
- 26 ：
- 冬までにシネ
- 27 ：
- >>22
その前にAthlonが壊れるぞ
- 28 ：
- perlとも電気ストーブとも関係ないのだが
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc2324-jp.txt
＞＞１はこの手のネタとかが好きなのかな？
- 29 ：
- あげ
- 30 ：
- >29
>>25
?
- 31 ：
- >>30
?
- 32 ：
- 冬まで保守するぞ
- 33 ：
- ﾎｯｼｭﾎｯｼｭ
- 34 ：
- 11月ですが、何か?
- 35 ：
- もうすぐ冬ですね
- 36 ：
- 冬やぞ～
- 37 ：
- （＾＾）
- 38 ：
- （＾＾）
- 39 ：
- Perlで電気ストーブ出来たよ！
っていってもオムライス作るのでいっぱいいっぱい。。。
ソースいる？
- 40 ：
- >>39
オムライスならソースよりケチャップがいいな
- 41 ：
- >>40
ナイス突っ込み39
- 42 ：
- （＾＾）
- 43 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 44 ：
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 45 ：
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 46 ：
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 47 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 48 ：
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 49 ：
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 50 ：
- >>24-25
ageとくよ。
- 51 ：
- 優良スレage
- 52 ：
- できた！
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
- 53 ：
- Perlで電気グルーブも誰か作ってんか
- 54 ：
- >>52
>>8でガイシュツ
- 55 ：
- >>52
もう少しおもしろいこと言って欲しかったです
- 56 ：
- >>52
72分ぐらい笑ったぞ！責任取れ！がははｈ
- 57 ：
- 52==56
- 58 ：
- 早く作らないと冬が終わるぞ
>>1
- 59 ：
- 寒いよー
- 60 ：
- また来年。
- 61 ：
- 何度でもよみがえる
- 62 ：
- age
- 63 ：
- “負荷をかける”じゃなくて、温度を上げるプログラムってのは無いのかな。
- 64 ：
- >>63
電気ストーブは負荷をかけて温度を上げてます。
- 65 ：
- while($a = $a)
print'マシーンから熱が出て、電気ストーブになります';
- 66 ：
- 残念ながらperlでストーブを作ることはできない。
phpならできるだろう。
- 67 ：
- >>65
ヘアドライヤーになるかも。
- 68 ：
- 電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。
以下ソース
#!/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 ：
- ソースの続き。
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 ：
- Perlじゃ無理だよ 遅いから・・・。
- 71 ：
- 超負荷をかけて無限ループ
＆
CPUファン等の冷却装置をはずす。
ほっかほか。(*´д`*)ｱﾊｧ
- 72 ：
- ファンがないと熱風出ないだろ。
- 73 ：
- まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ
- 74 ：
- 電気ストーブ完成版
#!/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 ：
- 電気ストーブ完成版
つづき
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 ：
- 実際動くところを見せておくれ。
机上の空論になっとる。
- 77 ：
- perl -e '`make stove`'
- 78 ：
- #!/Perl/bin/perl
while(1)
{
print "あったかほかほか\n";
}
#CPUから暖かい熱が出てきます。
- 79 ：
- while(1) {
fork;
print("あっかたーい");
}
- 80 ：
- forkはちょっと違うような…
- 81 ：
- 電気ストーブ制御用のプロトコルつくって、
RFCに登録したら？
で、Perlでそれを実現するコーディングを。
- 82 ：
- 3年・・・
- 83 ：
- ああ、あれから3年経ったな。
- 84 ：
- そして２ヵ月後…
- 85 ：
- 3回目の冬もオワタな
- 86 ：
- な、なんだこのスレは！激しくﾜﾛﾀよ
- 87 ：
- electricstove://www.foobar.st/
- 88 ：
- Perlはプログラミング言語なのでどう頑張っても
電気ストーブの材料にはならないでしょう。
ただし、スレタイをよく読むと材料として使うと
は書いてありません。
電気ストーブの製造時にPerlを使ってもよいわけ
です。あるいはPerlという土地で電気ストーブを
作るというのも一案です。
そんなわけで私は地名の方を調べてきます...
- 89 ：
- まだあったのかよ・・・
- 90 ：
- AtomAPI で操作できる電気ストーブにしたら便利じゃね？
- 91 ：
- あぁ，あと RSS で室温，残り燃料を配信したら一部の人にとっては便利かもしれない．
来るべく冬に備えて，そろそろこのプロジェクト始動しないと．
- 92 ：
- <font face="Webdings" size="5" color="black">Y</font>
- 93 ：
- ﾉノﾉﾉハヽヽ
リﾉ＞ヮ＜ﾘﾉ＜ｸｼｮﾝ!
- 94 ：
- ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
- 95 ：
- ﾉノﾉﾉハヽ
リﾉ>ヮ<ﾘﾉ
- 96 ：
- /＼__,ﾍ,
ﾉノﾉﾉハヽ
リﾉ‘ヮ‘ﾘﾉ
（(^)uu(^)
- 97 ：
- .○⌒＼
.(二二二)
.__（ ´ⅴ｀）
/ .ｏ つ
(＿;し―Ｊ
- 98 ：
- .○⌒＼
.(二二二)
.__リﾉ‘ヮ‘ﾘﾉ
/ .ｏ つ
(＿;し―Ｊ
- 99 ：
- ○⌒＼
(二二二)
リﾉ‘ヮ‘ﾘﾉ
- 100 ：
- ☆ノﾉハヽ
リﾉ‘ヮ‘ﾘﾉ ＜
(l]つ：)]つ
く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
100～のスレッドの続きを読む
IDにPerlが出たら神!PHPが出たらｼﾒｼﾞ Part39
Namazu全文検索システム
サーバーサイドJavaScript総合
【MVW】AngularJS {{2}}【Google】
ソーシャルネットワーキングのシステムを作ろう！
PHPで作られた有名サイトってあるの？
SSLの使い方
ColdFusion
【緊急】腕に覚えのあるプログラマー来てくれ！！
Google App Engine for Python 6アプ目
--------------------
こんな花火大会はイヤだ！
【NS】Minecraft マインクラフト Nintendo Switch Part29
オシッコ・ウンコ漏らしたことのある芸能人・有名人
【6期】フジテレビデモ★1
【悲報】4期生の中で、北川悠理の握手会だけ売れない
【５０億ドル】米軍駐留経費巡る韓米協議 ２日間の予定で３回目の協議 「米の提案と相当な隔たり」物別れ＝韓国代表が会見[11/19]
シグルイのフィギュアマダー？
【サザンタクシー】インターネットで悪意ある者から善意の者を守る党【市川うどん＠童貞無職】
【Re:ステージ！ドリームデイズ♪】市杵島瑞葉はせやけどかわいい
懐かしの北陸特急＆急行２号
人を一人入れておくのに良い家具ありませんか？
如何にしてあらしの朝鮮馬鹿ももこを始末すべきか？
【韓国】日本との通貨スワップ再開に向け努力 韓国中銀総裁が意向表明[05/06] ★６
京極と酒井ってなんで差がついたの？
近所の家に干してある下着を報告するスレ
創聖のアクエリオン 115年たっても愛してる
【天才差別】「普通にしろ」「目立つな」 高ＩＱ、ギフテッド…既存の学校に馴染めない子どもたちに必要な”居場所づくり” ★2
【SLIP有】【PILOT】パイロット万年筆69【Namiki】
【MH】モンハンでしりとり
【VW】ゴルフ5専用 その30【GOLF】
TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼