Sv: [PERL] Opslag af hostnavn til IP

["Jesper Lund" <sslug@sslug>]

> >    $ip = join '.', unpack('C4', gethostbyname('sslug.dk'));
> >
>
> Eller med Socket:
>
>   use Socket;
>   $ip = inet_ntoa(inet_aton("sslug.dk"));

Der er ikke nogen af dem der virker.....=(
Her er mit script:

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use Socket;

$data = $ENV{QUERY_STRING};
#$ip = join '.', unpack('C4', gethostbyname('$data{host}'));
#$ip = gethostbyname('$data{host}');
$ip = inet_ntoa(inet_aton("$data{host}"));

&opdel_i_par;

print "Data: $data<br>\n";
print "Host: $data{host}<br>\n";
print "IP: $ip<br>\n";



sub opdel_i_par {
        @allepar = split(/&/, $ENV{QUERY_STRING});
        foreach $par (@allepar) {
                ($navn, $vaerdi) = split(/=/, $par);
                $navn =~ tr/+/ /;
                $navn =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
                $vaerdi =~ tr/+/ /;
                $vaerdi =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
                $data{$navn} = $vaerdi;
        }
}

Som det kan ses, er det et CGI,som kigger på feltet "host" i en
formular, og skal sådan set bare vise IP'en for det tilsvarende
hostnavn, men på linien "IP: " står der ikke noget....Kig selv på:

http://balle.rulerz.dk/info.cgi?host=balle.rulerz.dk

Mvh.Jesper