gethostbyaddr()

Thread View: pl.comp.lang.perl

2 messages

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

2 total messages Started by Alan Ghafour Thu, 15 May 1997 09:01

#255

Author: Alan Ghafour
Date: Thu, 15 May 1997 09:01

31 lines
1495 bytes

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

#! /usr/bin/perl

$host="pingwin.ds2.pg.gda.pl";
$addr="153.19.170.112";

#############################################
# Resolving na podstawie nazwy dziala poprawnie !

($a,$b,$c,$d)=unpack("C4",gethostbyname($host));
$IP=join(".",$a,$b,$c,$d);
print $host,"\n", $IP, "\n";

#############################################
# A na podstawie adresu nie :-(

# 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";

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

Re: gethostbyaddr()

#256

Author: Chris Labanowski
Date: Fri, 16 May 1997 08:25

42 lines
1967 bytes

Alan Ghafour (alan@gdansk.sprint.pl) wrote:
: Probuje zrobic gethostbyaddr() i za ... mi nie wychodzi :-(
: Moze ktos przesledzi ponizszy kawalek i powie gdzie jest blad ?

: #! /usr/bin/perl

: $host="pingwin.ds2.pg.gda.pl";
: $addr="153.19.170.112";

: #############################################
: # Resolving na podstawie nazwy dziala poprawnie !

: ($a,$b,$c,$d)=unpack("C4",gethostbyname($host));
: $IP=join(".",$a,$b,$c,$d);
: print $host,"\n", $IP, "\n";

: #############################################
: # A na podstawie adresu nie :-(

: # 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 sprobouj tak ( u mnie dziala):
$addr="148.81.83.5";
($h1,$h2,$h3,$h4)=split(/\./,$addr,4);
$packed=pack('C4',$h1,$h2,$h3,$h4);
($name,$aliases,$type,$len,@addr)=gethostbyaddr($packed,2);
print "$name\n";
 
 a w pozostalych zmiennych masz reszte danych....
 pewnie da sie to prosciej napisac, ale tak jest czytelnie :)
 KL

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

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