TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
htmlを「文章を意味付けする」なんて言う奴はヴァカ
WEBアプリにもっとも適した言語は何か?
PHPでPDF
【GREE】ソーシャルアプリ開発スレ【モバゲー】
掲示板作って欲しいんですが・・・
今日覚えたことをメモっておけ
金出すから改造してよvol.3
携帯サイトのWebプログラムを語ろう Part3
RSS/RDF
Perl VS PHP
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やぞ、わかっとるんか?
あ?コンビ名じゃねぇよバカヤロウ!!
事務所の名前だっつーの、ふざけんな。
あと漏れもいい年して兄さんなんて呼ばれるの
どうかと思うねんけどお前らどうや?
まぁおれはずっと2番で逝こうと思ってる来てるからな。
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
>>1はこの手のネタとかが好きなのかな?
- 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 :
- ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ
- 49 :
- (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
- 50 :
- >>24-25
ageとくよ。
- 51 :
- 優良スレage
- 52 :
- できた!
while(1) {$i++}
CPUに負荷がかかって温度が上がり、暖房として使えるようになります。
- 53 :
- Perlで電気グルーブも誰か作ってんか
- 54 :
- >>52
>>8でガイシュツ
- 55 :
- >>52
もう少しおもしろいこと言って欲しかったです
- 56 :
- >>52
72分ぐらい笑ったぞ!責任取れ!がははh
- 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 :
- そして2ヵ月後…
- 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 :
- .○⌒\
.(二二二)
.__( ´D`)
/ .o つ
(_;し―J
- 98 :
- .○⌒\
.(二二二)
.__リノ‘ヮ‘リノ
/ .o つ
(_;し―J
- 99 :
- ○⌒\
(二二二)
リノ‘ヮ‘リノ
- 100 :
- ☆ノノハヽ
リノ‘ヮ‘リノ <
(l]つ:)]つ
く_,._,._,.ゝ
トテテテ…(__/"(__)
- 101 :
- ノノノノハヽ
川`・_・´)||
ノ/ /L
ノ ̄ゝ
- 102 :
- こたつをprintしよう
- 103 :
- 仕事でperl使ってる手前、おかしくて仕方が無いw
- 104 :
- マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
- 105 :
- >>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 :
- >>105
WebProg板だけに、サーバサイドスクリプトなのね。
- 107 :
- Perlを暴走させて、発熱させたPCをコタツにするのですか?
- 108 :
- プレスコットで電気ストーブを作ってみないか?
- 109 :
- 発熱させるのはPCだからPCでストーブを作ったことになるのでは?
- 110 :
- Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな?
- 111 :
- 金の亡者
- 112 :
- PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
- 113 :
- PCで熱源になるのはCPUだけではない・・っ!
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード・・・このご時世、殆ど全てのパーツが熱源に変わるのだ。
さぁ!これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ!
CPU:最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU:対応している物で最も高性能な物にしておけば特に問題はない。
HDD:RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源:恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン:高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。
そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”!
・熱を外に逃がさず蓄えるための”コタツ布団”!
うん、僕はコタツ派なんだ許しておくれ。
この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。
- 114 :
- ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。
- 115 :
- sage忘れた。sage
- 116 :
- >>16
あ?ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が!!
- 117 :
- #!/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 :
- 真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
- 119 :
- 増やすためにwhile使うだろ
- 120 :
- TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
- 121 :
- コヒーポット?
- 122 :
- whileってワイルって読むのか・・・
- 123 :
- >>122
まさかお前今までwhileのことをウィルとでも読んでたのか?
- 124 :
- 段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
- 125 :
- ホワイルって読んでた
- 126 :
- >>125
俺も俺も
単語は米英語発音です。。。
- 127 :
- 誰かcpanに登録しろよ。
2ch::Stove
- 128 :
- 先頭に数字は使えないだろ
- 129 :
- ニちゃん::ストーブ
- 130 :
- ここまで続いてると発狂したくなるな
- 131 :
-
つ10 GOTO 10
- 132 :
- このスレワロスwww
- 133 :
- 段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
- 134 :
- 6年目の冬・・・
- 135 :
- うー寒っ。
perlでストーブでも作るか。
- 136 :
- perlで電気ストーブってどうやって作るんですか?
- 137 :
- Acme::ElectricStove
- 138 :
- 残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は160円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
- 139 :
- っつかPerlでは電気ストーブ以外作ったことないすけど。。。
他に何かできるんすか?
- 140 :
- 灯油の値上がりが異常だから作ろうよ
- 141 :
- おー
- 142 :
- 6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス
- 143 :
- ほかにどうしろと
- 144 :
- Perlって何?
- 145 :
- 金銀Perlのネックレスの頭文字をとったものです
- 146 :
- 灯油使わないのはいいよね
- 147 :
- 今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。
- 148 :
- ストーブがPerl製でも燃料は同じです。
- 149 :
- >>148
hackが足らない。
- 150 :
- 6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具
- 151 :
- >>117
STOVE.pmってどこにあります?
- 152 :
- ヤマダ電機に売ってましたよ
- 153 :
- ヤマダ行ってくる
- 154 :
- あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)
- 155 :
- こんな感じでどうだろ。
#!/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 :
- 俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
- 157 :
- じゃエロ画像でもry
- 158 :
- このスレまだあったのか!
最後の書き込みから、1年以上経ってるしw
- 159 :
- はっきり言って、Perlはすでに冷たくなっているんだが...
- 160 :
- >>117
うはwww まだあったんかこれ
昔書いたコードがwwwくそショボイwwww
- 161 :
- いまさらなにいてんだ!おまえらのうちにあるストーブはみんなPerlで動いてるんだよ。温度調整から耐震制御まで全部Perlなんだよ!
- 162 :
- 真珠のネックレスもPerlなんだよ!
- 163 :
- 理論的には作れる!間違いない。
でも内部のコードだけねPerlで作り利点は今の所ない。
- 164 :
- 捕手
- 165 :
- おう
- 166 :
- あけおめ
- 167 :
- ぬるぽ
- 168 :
- 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
IJOVM998Z5
- 169 :2018/09/21
- 多分買ってきたほうが早い
JSP/Servletで構築されたサイト
SOHOです。仕事下さい。
ツリー式掲示板
中学生がPHPを習得するスレ
■最強の出会い系サイト作ろうぜ!■
PHPって遅くねぇか?
ソーシャルネットワーキングのシステムを作ろう!
【勉強するのは】PHPとPerl【どっちが最初?】
結局フリーで一番多機能な掲示板って何よ?
Session管理してる?
--------------------
政治家のAA
【瀬戸内】STU48★375航海目【本スレ】
【中央日報】韓国、技術格差1.8年の日本に追いつけ…税法の見直しでR&D支援へ[07/18]
【労働問題】ウォール街、「#MeToo」時代の新ルール−とにかく女性を避けよ【セクハラ避け】
【便秘】食物繊維でダイエット【解消】
【Rollei35】ローライ35☆8【目測・沈胴式】
【ToS】Tree of Savior part1157
【一時予選】竹田みき【赤ハゲる●んどBBA36】
『iPhone12』はレンズが4つになると予想 10年後のiPhoneはどうなってると思う?
【test】書き込みテスト@声優総合
安倍政権、ついに予算を2458億円投じることを決定!!
【福島市】のパチンコ店情報★1
【グレゴリー•ペック】アラバマ物語
ただでさえ体調悪いのに失恋した人
宗教とは何か?
あなたって、どんな人? 77人目
個人情報 曝されました。
氷河期世代は○○世代 Part.18
業界の癌 "中古ソフト購入厨" !!!
都営バス総合スレ 〜その30〜
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼