IP-Adresse vom Netzwerk oder Einzelbenutzer

[Patrick Andrieu]

Hallo Reiner!

Was sich hinter der IP verbirgt, also welches Land usw., kannst Du daraus nicht lesen.

Doch:

  
#!/usr/bin/perl -w  
  
use strict;  
use CGI::Carp qw(fatalsToBrowser);  
use Net::hostent qw(gethost);  
  
  
print "Content-type: text/html\n\n";  
sub getHostName  
{  
 my $h = gethost($ENV{"REMOTE_ADDR"}) || "";  
 my $Host = $h ? $h->name : "Nicht ermittelbar";  
        print "$ENV{'REMOTE_ADDR'} is resolved in: $Host\n";  
}  
  
getHostName();  

84.176.83.252 is resolved in: p54B053FC.dip.t-dialin.net

http://www.atomic-eggs.com/z_testdir/nethost.pl

Sicher erfährt man dadurch nicht, sollte der Host doch ermittelbar sein, aus welchem Land genau der User kommt, aber zumindest kann man dadurch seine eigenen Statistiken fälschen ;)

Viele Grüße aus Frankfurt/Main,
Patrick