Signature
Meine aktuelle Signatur:
use Term::Screen;$s=new Term::Screen;$r=$s->rows();$c=$s->cols();@c=(30,
31,32,33,34,35,36,37);@z=(A..Z,0..9);$s->clrscr();O:while(1){for(1..$c){
for(1..$r){$s->at(rand($r),rand($c))->puts("\e[".$c[rand(8)]."m\e[".($c[
rand(8)]+10)."m".$z[rand(36)]."\e[0m");last O if $s->key_pressed();}}}
31,32,33,34,35,36,37);@z=(A..Z,0..9);$s->clrscr();O:while(1){for(1..$c){
for(1..$r){$s->at(rand($r),rand($c))->puts("\e[".$c[rand(8)]."m\e[".($c[
rand(8)]+10)."m".$z[rand(36)]."\e[0m");last O if $s->key_pressed();}}}
Meine vorherige Signatur:
$_=reverse('2756b636168402c62756050227568647f6e61402473757a4');
s/([A-F0-9]{2})/chr(hex($1))/egi;s/\s{1}/_/g;tr/A-Za-z/a-zA-Z/;
print "$/".'#' x 70 ."$/#"."°." x (4*2.75) .$_.".°" x (4*2.75),
"#$/".'#' x 70 ."$/$0/0.01 $^X/$] OS/$^O PID/$$ UID/$<$/";exit;
s/([A-F0-9]{2})/chr(hex($1))/egi;s/\s{1}/_/g;tr/A-Za-z/a-zA-Z/;
print "$/".'#' x 70 ."$/#"."°." x (4*2.75) .$_.".°" x (4*2.75),
"#$/".'#' x 70 ."$/$0/0.01 $^X/$] OS/$^O PID/$$ UID/$<$/";exit;
Wer sie im Usenet sieht, darf diese gerne mal probieren. ;)
undef_engine.mod_perl/0.67 - Time needed: 0.0409 sec.
