(Perl) SSH Commands to Cisco Switch

Demonstrates how to establish an SSH session with a Cisco switch (or something similar) and send commands in a device console session.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$ssh = chilkat::CkSsh->new();

$success = $ssh->Connect("172.16.16.100",22);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Authenticate using login/password:
$success = $ssh->AuthenticatePw("myLogin","myPassword");
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Start a shell session.
$channelNum = $ssh->QuickShell();
if ($channelNum < 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# If the CISCO switch returns a prompt with "#", then read until we get the prompt.
# (It's not actually required that we do this, but it helps to know that all is OK at this point..)
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"#","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Show what we received so far:
print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

# Send a "show clock" command.
$success = $ssh->ChannelSendString($channelNum,"show clock\n","utf-8");

# Read the output to the next interactive prompt.
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"#","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

# Send another command and get the output, and so on...
$success = $ssh->ChannelSendString($channelNum,"some other command\n","utf-8");
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"#","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

$ssh->Disconnect();