Re: Sv: [PERL] Opslag af hostnavn til IP

[Peter Andreasen <sslug@sslug>]

> #$ip = join '.', unpack('C4', gethostbyname('$data{host}'));
> #$ip = gethostbyname('$data{host}');

Disse kan i hvert fald ikke komme til at virke, fordi der er enkelt
plinger (') omkring hostnavnet. Skriv fx. 

   .... gethostbyname($data{host}) ...

i stedet for.

> $ip = inet_ntoa(inet_aton("$data{host}"));

Men denne burde virke.

>
> &opdel_i_par;

Hov! Skulle den ikke være kaldt INDEN du bruger $data{whatever} ? ;-)

mvh
  - Peter
> 
> 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
> 

-- 
ln -s /dev/random ~/.plan