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

Perlで電気ストーブを ..

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

72:nobodyさん
 04/05/18 05:10 
ファンがないと熱風出ないだろ。

73:名無しさん＠Linuxザウルス
 04/05/18 20:17 i3QZMTMG
まったくどいつもこいつも、それは「電気ストーブ」じゃなくて「ファンヒーター」だろ

74:名無しさん
 04/05/18 20:21 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"; 
つづく

次ページ