#!/usr/bin/perl -w

use strict;
use warnings;


main (@ARGV);

sub main
{
    # This array contains the list of hosts
    my @host = ("ajsfdevbcs11", "ajsfdevbcs12");

    my $i;
    for($i = 0; $host[$i]; $i++)
    {
        # message ($host[$i]);
    }   
    
    # This is the logon ID
    my $user = "tsasa067";
    # message ($user);
    
    # This is the logon password
    my $security = 'F@therL0^eMe';
    # message ($security);
    
    # These are the commands I would like to run
    my @cmd = ("switchname", "chassisshow", "switchstatusshow", "switc
+hshow");
    my $j;
    for($j = 0; $cmd[$j]; $j++)
    {
        # message ($cmd[$j]);
    }
    
    
    my @results = 'plink -ssh -pw = $security -l = $user $host';
    print $results[0];
    
}
    
sub message
{
    my $m = shift or return;
    print ("$m\n");
}

sub error
{
  my $e = shift || 'unkown error';
    print("$0: $e\n");
    exit 0;  
}
[download]

Hi PerlCramps,

Did you read how to execute command in remote machine?

You can execute commands on remote machines from a Perl script using the Net::SSH::Perl module.

This module allows you to execute a command remotely and receive the STDOUT, STDERR, and exit status of that remote command.

One big advantage of Net::SSH::Perl over other methods is that you can automate the login process, that way you can write fully automated perl scripts, no console interaction is required in order to authenticate in the remote machine.

Ex:

#!/usr/bin/perl
 
use Net::SSH::Perl;
 
my $host = "perlhowto.com";
my $user = "user";
my $password = "password";
 
#-- set up a new connection
my $ssh = Net::SSH::Perl->new($host);
#-- authenticate
$ssh->login($user, $pass);
#-- execute the command
my($stdout, $stderr, $exit) = $ssh->cmd("ls -l /home/$user");
[download]

Execution of Net::SSH::Perl commands can be quite slow if you don't have the Math::BigInt::GMP module; so be sure that you have that module installed (or install it if you don't) in order to avoid the slowness problem.

---

All is well. I learn by answering your questions...

I am doing this on a Windows System. I am having problems with Net::SSH::Perl because I could not get the MATH::Pari to install.