Perl function vec and select-- help needed

[rakeshzingade]

Hi all,

I am studying network programming using Perl, while going through examples I found below 2 functions.
I tried to understand myself what these below functions does except socket, bind, connect, send and recv by reading perl documentation but failed to do... Still I don't know why they are used.

my $rin = $win = $ein = '';
vec($rin, fileno(serv_sock), 1) = 1;
my $nfound = select($rout=$rin,$wout=$win,$eout=$ein,2.0);
if($nfound >= 0)
{
    do send...
}

I blindly tried implementation and running availed examples from Internet but failed.. nfound always returns 0;'
Please help me in this regards...

Thanks...

[eWish]

What is you desired goal? You might be better using a module like IO::Socket or possibly another module depending on your goal. If it just a learning experience then go to perldoc.perl.org and search for IO. There should be some helpful information there for you.

--Kevin