Getting Local Port Number in Perl

Hi to all,

I am currently developing an application in perl that is capable of connecting to a server and sends information..
the server has a deamon that listens to the socket connections. It requires a socket port number of the client used in making a socket connection for validation..

is there a way in perl in which i can get the local port number (client side) used in making a socket connection to the server?(using Socket and IO:Socket libraries only)

Regards,
Mark Tan

re: Getting Local Port Number in Perl

Let me clear up on this, you are trying to get the client to send its port to the server for auth?

or are you trying just to find out what port the client is running on?

re: Getting Local Port Number in Perl

I am trying to get the client to send its port to the server for authentication...
my perl script resides on the client..

re: Getting Local Port Number in Perl

how are you calling your socket

have you tried?

socketpair(DOMAIN, TYPE, PROTOCOL)

re: Getting Local Port Number in Perl

i am using these codes :
I am using the IO:Socket module

re: Getting Local Port Number in Perl

You are almost there, the following methods will supply the info you need.

The following methods can be used on socket filehandle objects created by IO::Socket::INET:

* sockaddr
* sockport
* sockhost
* peeraddr
* peerport
* peerhost

For more info try http://docstore.mik.ua/orelly/perl/perlnut/ch13_02.htm

re: Getting Local Port Number in Perl

thanks for these information, i'll study these methods...