🚀 go-pugleaf

In article <Pine.GSO.3.96.970515105108.18403A-100000@netra.gdansk.sprint.pl> Alan Ghafour <alan@gdansk.sprint.pl> writes:

   Probuje zrobic gethostbyaddr() i za ... mi nie wychodzi :-(
   Moze ktos przesledzi ponizszy kawalek i powie gdzie jest blad ?

 [amba]

   # Ani tak ...
   $name=gethostbyaddr($addr,AF_INET);
   print $name, "\n";

   # Ani tak
   $addr=pack("C4",$a,$b,$c,$d);
   $name=gethostbyaddr($addr,AF_INET);
   print $name,"\n";


A ja napisałem tak:

use Socket 'AF_INET' ;

@a = split('\.', $ARGV[0], 4);
$addr=pack("C4",@a);
$name=gethostbyaddr($addr, AF_INET);
print $name, "\n";

I działa:

38 herbata:/home/zls/benke> perl -w gha.pl 148.81.12.165
kawa
39 herbata:/home/zls/benke> perl -w gha.pl 128.214.6.100
orava-e.funet.fi

Myślę, że problem leży w tym AF_INET, bo jak wykomentuję linijkeę
z "use Socket...", to perl krzyczy:

40 herbata:/home/zls/benke> perl -w gha.pl 128.214.6.100
Argument "AF_INET" isn't numeric in ghbyaddr at gha.pl line 7.
Use of uninitialized value at gha.pl line 8.
 

Morał: używać opcji -w

Pozdrawiam,
		Marcin Benke
----------------------------------------------------------------------------
"Calm down, it's only ones and zeros!" -  DJ Delorie