Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Getting a response from a socket

by 7stud (Deacon)
on Feb 13, 2013 at 23:50 UTC ( #1018661=note: print w/replies, xml ) Need Help??

in reply to Getting a response from a socket

Both of these lines:

$socket->getline; my $output = <$socket>; 'line oriented' input, i.e. they return when they read a newline from the socket. So if you want to read all the lines from the socket, you can use one of these:

while ( defined( my $line = $socket->getline ) ) { } while (my $line = <$socket>) { } my @lines = <$socket>;

The script either hangs or it just returns the "Welcome to device 'devicename', please input your commands".

Well, then it sounds like you should start your program by reading a line at a time from the socket--until the line you read matches that text, then send your command. Then read some more lines for the response.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018661]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2018-06-20 20:01 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.