Sv: [PERL] Opslag af hostnavn til IP

["Jesper Lund" <sslug@sslug>]

*DOH*
Nu kunne jeg godt se hvad problemet var....... ;))

&opdel_i_par; skulle selvfølgelig køres,før man kan refferere til
$data{host}.

Jeg beklager fejlen !!!

Mvh. Jesper


----- Original Message -----
From: Jesper Lund <sslug@sslug>
To: <sslug@sslug>
Sent: Wednesday, September 20, 2000 11:07 AM
Subject: Sv: [PERL] Opslag af hostnavn til IP


> > >    $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
>