http://qs321.pair.com?node_id=11109376


in reply to Unable to get infor from telnet conection

iug:

If it's stuck on the cmd line, I'd expect that the command is waiting for additional input or something similar. Have you read the "Debugging" section of Net::Telnet? It describes a couple functions (input_log() and dump_log()) that you can use to see what's happening so you can figure out the situation. As you've presented it, we don't know what "command" is, what it's doing or why it's hanging.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

  • Comment on Re: Unable to get infor from telnet conection

Replies are listed 'Best First'.
Re^2: Unable to get infor from telnet conection
by iug (Initiate) on Nov 29, 2019 at 07:30 UTC

    Thanks #roboticus for your quick answer. 

    #!/usr/bin/env perl

use Net::Telnet;

print "reporting end of web server log files:\n";

my($input_log, $output_log, $dump_log);
$input_log="./input_log.log";
$output_log="./output_log.log";
$dump_log="./dump_log.log";

$hostname = "127.0.0.1";
$telobj = new Net::Telnet (-host => $hostname
                        ,-port => 23
                        ,-dump_log  => $dump_log
                        ,-input_log  => $input_log
                        ,-output_log  => $output_log
                        ,-telnetmode => ''
                        ,-prompt => '/^]/'
                        );
$rad = $telobj -> cmd ("get sn");
pop @rad;
chomp @rad;
print "\n";

$telobj -> close;

    [download]

    the command gives back a 6 digit string like 123456. de content of the dump_log is > 0x00000: 67 65 74 20 63 6f 6d 6d 73 0d 0a get comms.. < 0x00000: ff fd 03 ff fe 01 ff fb 01 ÿý.ÿþ.ÿû. Any idea?

[reply]
[d/l]

In Section Seekers of Perl Wisdom