1
2
3
4
5
6
7
8

my @ip = qw(123.43.25.1.34, 95.46.3.56.3, 35.76.21.34.3);
my $x = 0;
foreach (@ip){
          if($ENV{'REMOTE_ADDR'} eq $_){
                    print "Du bist gesperrt!";
                    last;
          }
}

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]