Nokia (Alcatel-Lucent) 7750 SR cihazına SSH ile bağlanıp komut gönderen perl scripti

Merhaba,

Nokia 7750 Service Router (SR) cihazına bağnarak komut gönderen bir script paylaşmak istiyorum.
Cisco cihazlardan biraz farklı olarak direkt kanal üzerinden komut göndermek yerine kanal üzerinden bir terminal edinilerek shell üzerinden yazmak sureti ile komutumuzu gönderiyor ve çıktısını alıyoruz.

#!/usr/bin/perl



use Net::SSH2;

use warnings;

use strict;

no warnings 'uninitialized';

my $host = "A.B.C.D";

my $user = "ssh-username";

my $password = "password";



my $komut = "show router interface\r";



#SSH baglantisi saglanir



my $ssh = Net::SSH2->new();

        if(!$ssh->connect($host)){

                print("SSH Baglantisinda Problem - $@ \n");

                exit(1);

        } else {print("\nSSH Baglantisi Yapiliyor...\n");}

  

sleep(1);

  

        if(!$ssh->auth_password($user,$password)){

                print("Kullanici-Sifre Problemi - $@");

                exit(1);

        } else {print("\nBaglandi...\n\n");}



sleep(1);

print("Gonderilen Komut : ".$komut."\n\n");

  

#Kanal acilarak komut gonderilir

my $channel = $ssh->channel();



$channel->blocking(0);

$channel->pty(1);      #set tty

$channel->shell();    



sleep (1);

$channel->write("environment no more\r".$komut);

sleep (1);  



my $output;

$channel->read($output,99999999);

print "Komut Ciktisi :\n $output\n";

Teşekkürler,
Cem Selmanoğulları