Re^3: Net::Telnet waitfor loop

Dump_log and Input_log both show that I am getting the first page of the on-screen report. It indeed IS dying on the until line. Here is the updated code:

    until ($t->waitfor('/REPORT FINISHED/') == 1) {
        ($op1) = $t->waitfor('/PAGE/');
        print NVFILE $op1;        
        ($op2) = waitfor('/PRESS RETURN/');
        print NVFILE $op2;        
        $t->print("");
    }
[download]

Thanks!

Comment on Re^3: Net::Telnet waitfor loop Download Code

Replies are listed 'Best First'.
Re^4: Net::Telnet waitfor loop by ssandv (Hermit) on Aug 20, 2009 at 21:15 UTC
Hmm...maybe your `$t->output_record_separator()` is set to something weird? (or, in any event, something inconsistent with what the machine at the other end is expecting) I'm having trouble coming up with other explanations. If it doesn't time out, and it doesn't fail to match, it ought to be sending the \n across the wire when prompted unless the ORS is fouled up. I'm not sure why you broke up the match into two pieces here, but I don't think that should matter.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Net::Telnet waitfor loop
by ssandv (Hermit) on Aug 20, 2009 at 21:15 UTC

Hmm...maybe your $t->output_record_separator() is set to something weird? (or, in any event, something inconsistent with what the machine at the other end is expecting)

I'm having trouble coming up with other explanations. If it doesn't time out, and it doesn't fail to match, it ought to be sending the \n across the wire when prompted unless the ORS is fouled up. I'm not sure why you broke up the match into two pieces here, but I don't think that should matter.

[reply]
[d/l]