Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Winsock connect problem in perl!!!

by chargrill (Parson)
on Oct 07, 2006 at 02:13 UTC ( #576779=note: print w/replies, xml ) Need Help??

in reply to Winsock connect problem in perl!!!

Extremely easy to find.

Please reference this link to see the original question by Daniel Moree.

Perl socket problem I'm attempting to use a perl script to interface with my Visual Basic +6 program using Winsock. I've got my program setup to connect and works great if i connect to another winsock program, but it acts funny connecting to my perl script. The Perl code is below: #!c:/Perl/bin/Perl.exe use IO::Socket; $server = IO::Socket::INET->new(LocalAddr => '', LocalPort => '8777', Proto => 'tcp', Listen => 1, Reuse => 1); die "ERROR: $!\n" unless $server; print "Waiting on connections...\n"; while($client = $server->accept()){ print "Connection made, reading data...\n"; print <$client>; print "Connection closed...\n"; } $server->close(); All the program is supposed to do is open a socket on port 8777 for tc +p. Listen for any incomming connections then read the one line of data comming in. I've read on the internet and in my perl in a nutshell boo +k that the above code should work. But they all say the same thing. You must get the line of data and scan it for a character that lets the pe +rl script that the line is done. Problem is, when the script runs, i get +as far a connection made then it will do nothing until i close the VB Win +sock. Anyone got a reader for sockets that will know when to stop reading? I haven't found any examples on the internet on how to do it, just that everyone says it can be done. I'd really appreciate the help! Daniel Moree

This is ridiculous.

s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://576779]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2020-09-27 11:01 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (142 votes). Check out past polls.