06/12/24 19:56:33 KRaF2Zsi
>>355
超単純ならこれ？
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
foreach (split(/\./, $ENV{'REMOTE_ADDR'})) {
$ip .= $_;
}
print "<span style=\"color:#$ip\">$ip</span>";
exit;
物凄く暗い色しか作成されないと思いますが･･･
06/12/24 19:56:33 KRaF2Zsi
>>355
超単純ならこれ？
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
foreach (split(/\./, $ENV{'REMOTE_ADDR'})) {
$ip .= $_;
}
print "<span style=\"color:#$ip\">$ip</span>";
exit;
物凄く暗い色しか作成されないと思いますが･･･