Shell Programming and Scripting

 
#!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSSH;
my $user = 'popeye';
my $password = 'thesailorman';
use vars qw ($cmd $host @HOSTS @CMDS); #
#
open (SEED, 'ip.txt') or die ("Missing list of ips.");
 @HOSTS = <SEED>;
close SEED;
#
open (CMD, 'cmds.txt') or die ("Missing list of commands.");
 @CMDS = <CMD>;
close CMD;
#
foreach $host (@HOSTS) {
chomp $host;
print "$host\n";
my $ssh = Net::OpenSSH->new(host=>"$host", user=>"$user", port=>22, password=>"$password");
  foreach $cmd (@CMDS) {
   chomp $cmd;
   print "$cmd\n";
  $ssh->system($cmd);
  }
}

#!/usr/bin/perl
use strict;
use warnings;
use strict;
use Net::SSH2;
my $user = 'popeye';
my $password = 'thesailor';
use vars qw ($cmd $host @HOSTS @CMDS); 
#
open (SEED, 'ip.txt') or die ("Missing list of ips.");
 @HOSTS = <SEED>;
close SEED;
#
open (CMD, 'cmds.txt') or die ("Missing list of commands.");
 @CMDS = <CMD>;
close CMD;
#
foreach $host (@HOSTS) {
 chomp $host;
 my $ssh = Net::SSH2->new();
#
  if(!$ssh->connect($host)){
   print("Connection Failed\n");
   exit(1);
   next;
  }
  if(!$ssh->auth_password($user,$password)){
   print("Authentication Failed");
   exit(1);
   next;
  }
#
 my $channel = $ssh->channel();

  foreach $cmd (@CMDS) {
   #chomp $cmd;
   my $command = $channel->exec("$cmd") or die $_;
   my $output;
   my $len = $channel->read($output,2048);
   print "output is $output\n";
   } #End command foreach 

} #End Host for each