Perl Frage

aticio · 24.04.2001, 12:03

Hallo zusammen!
Bin Anfänger!!
Kann mir jemand den folgenden code(subroutine) erklären???
Vielen Dank!!

sub get_url {
if ($ENV{'REMOTE_HOST'}) {$remote_ip = $ENV{'REMOTE_HOST'} }
elsif ($ENV{'REMOTE_ADDR'}) {$remote_ip = $ENV{'REMOTE_ADDR'} }
if ($remote_ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
$Address = pack('C4',$1,$2,$3,$4);
if ($Address = (gethostbyaddr($Address,2))[0]) {
$remote_url = $Address;
}
}
$remote_url =~ tr[A-Z][a-z];
return ($remote_ip,$remote_url);
}

MZ · 24.04.2001, 12:12

hm, würde sagen er liest die IP Adresse des Clients und teilt sie dann in die 4 IP Segmente auf

aticio · 24.04.2001, 12:19

Die beiden Rückgabewerte scheinen immer null zu sein. Woran könnte das liegen????

24.04.2001, 12:12	#2
MZ IAMTHEAMDIN Registriert seit: 12.10.2000 Beiträge: 1.992	hm, würde sagen er liest die IP Adresse des Clients und teilt sie dann in die 4 IP Segmente auf ____________________________________ cu mz

24.04.2001, 12:03	#1
aticio Master Registriert seit: 03.02.2001 Beiträge: 586	Hallo zusammen! Bin Anfänger!! Kann mir jemand den folgenden code(subroutine) erklären??? Vielen Dank!! sub get_url { if ($ENV{'REMOTE_HOST'}) {$remote_ip = $ENV{'REMOTE_HOST'} } elsif ($ENV{'REMOTE_ADDR'}) {$remote_ip = $ENV{'REMOTE_ADDR'} } if ($remote_ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $Address = pack('C4',$1,$2,$3,$4); if ($Address = (gethostbyaddr($Address,2))[0]) { $remote_url = $Address; } } $remote_url =~ tr[A-Z][a-z]; return ($remote_ip,$remote_url); }

24.04.2001, 12:19	#3
aticio Master Registriert seit: 03.02.2001 Beiträge: 586	Die beiden Rückgabewerte scheinen immer null zu sein. Woran könnte das liegen????

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)