in reply to Newbee needs help

I can only assume that you are using Net::Telnet, based on the code snippet you provided, since your post does not say how you are trying to do what you want. If my assumption is correct, the problem is probably related to the way you defined the prompt. Anyway, start with this: 

 
my $log_fh = $t->input_log($filename);
$t->cmd(String => "debug isdn verbose");

[download]

Then examine the log, and see what it contains.

If you would provide a more complete example of what you are doing (at least the fragments when you initialize Net::Telnet and set up the prompt), I would gladly help you with your problem.

regards,
Luke Jefferson

Replies are listed 'Best First'.
Re^2: Newbee needs help
by Anonymous Monk on Sep 26, 2014 at 14:19 UTC

    Luke
    Thank you for the help, I was able to get the data to the file.
    Here is the code.

    if ($CL_logdebug){
while ($t){
for (my $A = 0;$A <= 10;$A++){
my $filename = sprintf ("AdtranLogInfo%02d.txt",$A);
my $log_fh = $t->input_log("/home/jmahaffey/$filename");
$t->cmd(String => "debug isdn verbose",errmode => "return",Timeout => 
+3600);
my @time = $t->cmd(String => "show clock",Prompt => '/[#]/',Timeout =>
+ 10);
printf @time;
if ($A == 10){$A = 0};
}
}
}

    [download]

    Thanks for the help.
    John

[reply]
[d/l]

In Section Seekers of Perl Wisdom