If you are going to be doing things on a remote machine, you may as well start out right, and use ssh instead of telnet. Why
use telnet, and show your password to the world?
#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Perl;
my %hostdata = (
'localhost' => {
user => "zz",
password => "ztest",
cmdtorun => "ls -la",
misc_data => [],
},
'zentara.zentara.net' => {
user => "zz",
password => "ztest",
cmdtorun => "/usr/bin/uptime",
misc_data => [],
},
);
foreach my $host (keys %hostdata) {
my $ssh = Net::SSH::Perl->new($host, port => 22); #, debug => 1
+);
$ssh->login($hostdata{$host}{user},$hostdata{$host}{password} );
my ($out) = $ssh->cmd($hostdata{$host}{cmdtorun});
print "$out\n";
}
|