萌えませんか？
萌えなかったらリロードして下さい。
ソースコード
#!/usr/bin/perl -- sub randomcolor{ my $x="", $i; for($i=0; $i<3; $i++){ $x.=sprintf("%2x", &cut(rand()*0x100)); } $x=~s/ /0/g; return "#$x"; } sub cut{ my $x=@_[0]; my @x=split(/\./,$x); return $x[0]; } print "content-type: text/css\n\n"; srand time; print "body{background-color:".&randomcolor."}\n"; print "p{color:".&randomcolor.";background-color:".&randomcolor."}\n"; print "a{color:".&randomcolor.";background-color:".&randomcolor."}\n";
Produced by
Sinryow Pillowgate