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

Perlで電気ストーブを ..

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

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

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

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

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

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

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

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

68:nobodyさん
 04/05/11 21:19 
電気ストーブを作ってみましたが、うまく動作しません。うまくうごくように直してください、おながいします。 
 
以下ソース 
#!/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"; 
 
以下続く。

次ページ