die variable für IP's?{'REMOTE_ADDR'}

[$xNeTworKx]

Hallo,

ich versuchs nun mit dem cgi da ich mit server confic sowieso kein
meister bin und natürlich auch nicht unbedingt mit den cgi's.
Dennoch versuch ich durch andere cgis und selfhtml seit gestern morgen
rauszufinden wie ich die variable finde für IP's(REMOTE_ADDR)
zum vergleichen einer liste (werd noch wahnsinnig).
Ok ich möchte es hier mal die variable schreiben:
$ip_now         = $ENV{'REMOTE_ADDR'};
$ip_ab = "64.2.240.1";
@ip_ac =~ split(/^\d+.\d+.\d+.\d+$/);

Wozu dient hier die Zeile, ich komm da irgendwie nicht ganz mit.

foreach $ip_ab (@ip_ac)
{
if ($ip_ab == $ip_now)

Du hast hier Strings und keine Zahlen, also eq statt == .Verwendest du nicht -w und use strict ?

{print "Content-type: text/html\n\n";
      print "your IP $ip_now was banned from this chat\n";}}

Hmmm hier mal eine Möglichkeit :
#!/usr/bin/perl -w

use strict;
my @gesperrte_ips = ('212.34.57.14','47.2.234.6','12.234.75.2','255.67.4.21','195.3.133.87','93.45.2.46');
print "Content-type:text/html\n\n";
foreach(@gesperrte_ips)  {
    if ($_ eq $ENV{'REMOTE_ADDR'})  {
    print "Deine IP $_ ist gesperrt !\n";
    }
}