in reply to How do I tell getlines to get ALL the data?

According to the docs for Net::Telnet, getlines() reads the next available lines from the remote host. If there are no lines available, it will wait until it times out. The behavior you're seeing is exactly as documented, so I'm not exactly sure what the difficulty is. Perhaps you want to call getlines() in a loop? 
$connect->print("$rtrv");
(@prematch,$match) = $connect->waitfor('/COMPLD/');
while (@lines = $connect->getlines(Timeout => 1)) {
  print "Got some lines:";
  print @lines;
}

[download]

Replies are listed 'Best First'.
Re: Re: How do I tell getlines to get ALL the data?
by Galen (Beadle) on Mar 22, 2001 at 04:52 UTC
    The problem is it doesn't seem to be waiting until it times out. It doesn't wait at all in fact. This is very odd, because if I implement a loop as you suggest, getlines does indeed gather all the lines of data, but the problem at that point is that it DOES time out, and I'm unable to execute the next command (logging off gracefully). I think if I rewrite the loop differently I might be able to get your approach to work. I should explain myself better. If you log directly into the element and issue the command manually, you get 39 lines of output in less than 1 second. There may be a tiny delay after groups of lines scroll by, but it's barely perceptible to the human eye. Apparently getlines is seeing it, however. It stops gathering data into the array and I am required to issue a new getlines to retrieve the rest of the data. This doesn't make sense to me, and it's even more confusing that when I loop it as you have shown above, I get a timeout after exactly as many seconds as specified (1 second in your example, 100 seconds if I change it to 100). So, timeout is working like this. But, if I just say: 
    @lines = $connect->getlines(Timeout => 100);

    [download]
    Then what I end up with is the first 17 lines out of 39 - every time. Changing the timeout has absolutely no effect. Weird huh?
[reply]
[d/l]
[select]
      As I understood the documentation, the timeout is used only to wait for the first line of data. If there is already data waiting to be read, getlines returns those lines and returns immediately.
[reply]
        I think you've hit it on the head. When I loop the getlines, I get a timeout because the last getlines is waiting for the first line of data and never sees it. Hmm... well I still think I can rewrite the loop in such a way as to make this work for me.
[reply]
[reply]

In Section Seekers of Perl Wisdom