>>>>> "TM" == Ted Mittelstaedt <t...@mittelstaedt.us> writes:



  TM> $sockaddr       = 'x C n a4 x8';
  TM> Th first two bytes are length (0) and family, both of which are
  TM> unsigned char, so 'x C' (or 'n') handles those.

  TM> use Socket;

  TM> $that = sockaddr_in($port,inet_aton($newshost));

  TM> ($newshost is the FQDN of the new host, $thataddr is the IP# of the
  TM> news host)

  TM> but as I said before, I don't want to rewrite everything.

jeez.

use IO::Socket ;

my $sock = IO::Socket->new( "$host:$port" ) ;

done.

use a module for at least that. dealing with pack templates for socket
addresses is insane and never needed anymore.

uri

-- 
Uri Guttman  ------  u...@stemsystems.com  --------  http://www.sysarch.com --
-----  Perl Code Review , Architecture, Development, Training, Support ------
---------  Gourmet Hot Cocoa Mix  ----  http://bestfriendscocoa.com ---------

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to