Re: gethostbyaddr()

Thread View: pl.comp.lang.perl

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Marcin Benke Thu, 15 May 1997 11:38

#257

Author: Marcin Benke
Date: Thu, 15 May 1997 11:38

47 lines
1871 bytes

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

Re: gethostbyaddr()

#258

Author: Alan Ghafour
Date: Fri, 16 May 1997 07:27

17 lines
1252 bytes

On 15 May 1997, Marcin Benke wrote:

[...]
> Myślę, że problem leży w tym AF_INET, bo jak wykomentuję linijkeę
> z "use Socket...", to perl krzyczy:
Byc moze. Wczoraj znalazlem przyklad w ktorym zamiast AF_INET jest 2.
I dziala.

> Morał: używać opcji -w
Zapamietam sobie :-)

Dzieki
	aLAN
 __ __ __  _ _  _ ___   _  _ ___ ___   ______         Alan Ghafour 
(_  |_)|_) | |\ |  | __ |\ | |_   |   [/~~~~\]    Network Administrator
__) |  | \ | | \|  |    | \| |__  |    |_()_|     alan@gdansk.sprint.pl
                                                http://www.sprint.pl/~alan

Re: gethostbyaddr()

#259

Author: Marcin Benke
Date: Fri, 16 May 1997 12:33

19 lines
1364 bytes

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

   On 15 May 1997, Marcin Benke wrote:

   [...]
   > Myślę, że problem leży w tym AF_INET, bo jak wykomentuję linijkeę
   > z "use Socket...", to perl krzyczy:
   Byc moze. Wczoraj znalazlem przyklad w ktorym zamiast AF_INET jest 2.
   I dziala.

Zgadza sie. Po prostu AF_INET jest zdefiniowane w Socket wlasnie z
taka wartoscia.

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads