I'm using following code to connect to a remote machine and try to execute one simple command on remote machine.
#!/usr/bin/perl #use strict; use warnings; use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>2, Errmode=>'die'); $telnet->open('172.168.12.58'); $telnet->waitfor('/login:\s*/'); $telnet->print('admin'); $telnet->waitfor('/password:\s*/'); $telnet->print('Blue'); #$telnet->cmd('ver > C:\\log.txt'); $telnet->cmd('mkdir gy'); But when I'm executing this script it is throwing error messages
[root@localhost]# perl tt.pl command timed-out at tt.pl line 12 2 Answers
From your code it seems that you have *nix. Use of perl module Net::SSH::Perl make it more easy
Sample Code:
#!/usr/bin/perl -w use strict; use Net::SSH::Perl my $cmd = 'command'; my $ssh = Net::SSH::Perl->new("hostname", debug=>0); $ssh->login("username","password"); my ($stdout,$stderr,$exit) = $ssh->cmd("$cmd"); print $stdout; And sample code for Net::Telnet
use Net::Telnet (); my $t = new Net::Telnet (Timeout => 10, Prompt => '/bash\$ $/'); $t->open("sparky"); $t->login($username, $passwd); my @lines = $t->cmd("who"); print @lines; You can look at more example for Net Telnet Examples
You might need to provide a "prompt" constructor parameter - see this thread
The example they gave:
my $telnet = new Net::Telnet ( Timeout=>10, Prompt=>'/Bilbo>$/i', #### <<<============== Errmode=>'die', Dump_Log=>'dump.txt', Input_log=>'input.txt', Output_log=>'output.txt', ); 
