05/12/29 17:19:57
☆ノﾉハヽ
リﾉ‘ヮ‘ﾘﾉ ＜
(l]つ：)]つ
く_,._,._,.ゝ
ﾄﾃﾃﾃ…(__/"(__)
101:nobodyさん
06/01/06 19:03:58
ﾉノﾉﾉハヽ
川`･_･´)||
ノ/ /L
ノ￣ゝ
102:nobodyさん
06/01/07 11:40:38 Yrk/+KPl
こたつをprintしよう
103:nobodyさん
06/01/07 18:07:56
仕事でperl使ってる手前、おかしくて仕方が無いｗ
104:nobodyさん
06/01/07 18:20:36
マルチスレッドで、それぞれにwhileループで円周率の計算をさせるとかどうよ。
105:nobodyさん
06/01/08 21:08:56 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さん
06/01/12 13:41:36
>>105
WebProg板だけに、サーバサイドスクリプトなのね。
107:nobodyさん
06/01/26 10:56:37
Perlを暴走させて、発熱させたＰＣをコタツにするのですか？
108:nobodyさん
06/03/09 16:28:39 Fd0dBP0K
プレスコットで電気ストーブを作ってみないか？
109:nobodyさん
06/03/09 22:03:38
発熱させるのはPCだからPCでストーブを作ったことになるのでは？
110:nobodyさん
06/03/09 22:40:37
Perlで負荷をかけてPCが発熱したら、やっぱりPerlじゃないかな？
111:椎名
06/11/02 22:12:48
金の亡者
112:nobodyさん
06/11/02 23:01:32
PICマイコンつかえば応用が利く、総司令部はPerlから。
そういう発想はできないのか、おまえら
113:nobodyさん
06/11/02 23:55:22
PCで熱源になるのはCPUだけではない･･っ！
CPU・GPU・HDD等の各種ドライブ・電源・マザーボード･･･このご時世、殆ど全てのパーツが熱源に変わるのだ。
さぁ！これらのパーツを選りすぐって厳選し、ほっかほかのPCを作り上げるのだ！
CPU：最大消費電力100W以上の物を、可能なら2個搭載したい。
GPU：対応している物で最も高性能な物にしておけば特に問題はない。
HDD：RAID構成にしておくと大量の読み書きで負荷を高める際にプログラムが簡単になって後々楽。
電源：恐ろしい消費電力の為に何気に超重要パーツ。選ぶポイントはとにかく大容量。
ファン：高負荷状態でも安定動作させるために必須。空気の流れを考慮しつつ強力な物を沢山。
そして、絶対に忘れてはならない物がある。
・熱を封じ込める狭い空間の構築に欠かせない”コタツ台”！
・熱を外に逃がさず蓄えるための”コタツ布団”！
うん、僕はコタツ派なんだ許しておくれ。
この発熱スペックを極限まで発揮するPerlを誰か考えてくれ。
114:nobodyさん
06/11/05 06:04:34 9CpRBd2c
ワイルで無限ループもいいけどさぁ。
限界があることに気づこうよ。
115:nobodyさん
06/11/05 06:05:09
sage忘れた。sage
116:nobodyさん
06/11/05 06:07:53
>>16
あ？ヒアドキュメントでくくって文字列出力しただけじゃねーか。
粋がってんじゃねーぞド素人が！！
117:nobodyさん
06/11/05 19:08:50
#!/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:nobodyさん
06/11/07 05:01:53 LezWqaS7
真面目な話、while(1)なんかよりも
指数関数的に処理が増えていくやつの方が
即効性があるんじゃないのかと言おうとしてやめた。
119:nobodyさん
06/11/07 05:39:50
増やすためにwhile使うだろ
120:nobodyさん
06/11/07 14:40:45
TCP/IPは元々コヒーポット遠隔制御のために作られたプロトコルです
121:nobodyさん
06/11/08 00:07:42
コヒーポット？
122:nobodyさん
06/11/24 11:41:02
whileってワイルって読むのか・・・
123:nobodyさん
06/11/25 14:10:32 MAk3S3G9
>>122
まさかお前今までwhileのことをウィルとでも読んでたのか？
124:nobodyさん
06/11/25 14:46:21
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
125:nobodyさん
06/12/01 14:52:03
ホワイルって読んでた
126:nobodyさん
06/12/01 19:13:05
>>125
俺も俺も
単語は米英語発音です。。。
127:nobodyさん
06/12/05 03:33:33
誰かcpanに登録しろよ。
2ch::Stove
128:nobodyさん
06/12/05 14:13:33
先頭に数字は使えないだろ
129:nobodyさん
07/06/17 11:18:58 CcwzlC8Y
ニちゃん::ストーブ
130:nobodyさん
07/06/18 00:08:47
ここまで続いてると発狂したくなるな
131:nobodyさん
07/07/04 22:14:04
つ10 GOTO 10
132:nobodyさん
07/08/24 09:48:27 JWUhZcKL
このスレﾜﾛｽｗｗｗ
133:nobodyさん
07/11/29 10:20:24
段々と冬の気配が近づいてまいりました。
皆様、いかがお過ごしでしょうか。
134:nobodyさん
07/11/30 00:44:44
6年目の冬･･･
135:nobodyさん
08/01/28 21:08:58
うー寒っ。
perlでストーブでも作るか。
136:nobodyさん
08/02/15 21:44:09 A0WXhOsP
perlで電気ストーブってどうやって作るんですか?
137:nobodyさん
08/03/09 02:15:39
Acme::ElectricStove
138:nobodyさん
08/06/06 09:18:08
残念ながら今の先物価格だと灯油が120円は軽く超えます。
灯油がガソリン以上にかなり買い占めされています。
冬は１６０円相当にまでなってます。
石油を使わない電気ストーブまたはエアコンを考えてください
139:nobodyさん
08/06/06 11:37:25 BYonZ9Xz
っつかPerlでは電気ストーブ以外作ったことないすけど。。。
他に何かできるんすか？
140:nobodyさん
08/07/18 10:23:57
灯油の値上がりが異常だから作ろうよ
141:nobodyさん
08/07/30 12:28:11
おー
142:nobodyさん
08/07/30 13:05:13 Af+1KtEz
6年経つと言うのに未だに無限ループで発熱させる方法から進歩してなくてワロス
143:nobodyさん
08/07/30 18:49:19
ほかにどうしろと
144:nobodyさん
08/08/13 00:07:33
Perlって何？
145:nobodyさん
08/08/13 00:28:40
金銀Perlのネックレスの頭文字をとったものです
146:nobodyさん
08/09/04 14:24:35
灯油使わないのはいいよね
147:nobodyさん
08/09/05 23:00:48
今年は油高ぇからなあ。氏にかねん。
Perlストーブ、alpha でいいからリリースしてくれ。
148:nobodyさん
08/10/05 22:58:19
ストーブがPerl製でも燃料は同じです。
149:nobodyさん
08/11/07 16:42:28
>>148
hackが足らない。
150:nobodyさん
08/11/26 21:10:25 GyupIWdq
6年越しの衝撃の事実に恐れおののくが良い
電気ストーブの英訳は"electric heater"
"electric stove"は調理器具
151:nobodyさん
08/12/05 15:05:54 tuYpMTRh
>>117
STOVE.pmってどこにあります？
152:nobodyさん
08/12/14 11:49:38
ヤマダ電機に売ってましたよ
153:nobodyさん
09/03/07 17:07:42 svmAHGib
ヤマダ行ってくる
154:nobodyさん
09/03/09 14:05:48
あー思いついた。
それほど負荷になるのかどうかは知らんが、
Perlで自分(CGI)自身にアクセスするCGI作って、それをwhileでループさせてみるとか。
そうすれば、多分延々自分にアクセスするかと。(タイムアウトとか無視した場合)
155:nobodyさん
09/03/09 14:18:59
こんな感じでどうだろ。
#!/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 => "URLﾘﾝｸ($ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{SCRIPT_NAME})");
my $res = $ua->request($req);
$i = $i + 1;
print "$i,";
}
156:nobodyさん
09/04/01 11:52:26
俺が自分用に作るなら、辛い料理の画像を表示しまくるだけで十分だな
辛い料理は見てるだけで汗が出てくる。
157:nobodyさん
09/04/02 08:42:00
じゃエロ画像でもｒｙ