Paragraph 1 | Paragraph 1 | |
siehe auch CodeSchnipsel für html und js | siehe auch CodeSchnipsel für html und js | |
| ---- | |
<pre> | <pre> | |
| ||
# simple script to resolve hostname from IP | # simple script to resolve hostname from IP | |
Paragraph 10 | Paragraph 11 | |
</pre> | </pre> | |
---- |
# simple script to resolve hostname from IP use Socket; use CGI qw(:standard); print header; # get DNSentry of IP ( REMOTE_ADDR ) my $dnsname = gethostbyaddr(inet_aton($ENV{'REMOTE_ADDR'}), AF_INET); print "$dnsname\n";