SPUG: Reg SSH Packet

Reddy V, Ravinder (Ravinder) ravir at lucent.com
Thu Mar 17 06:37:24 PST 2005

Hi All,

 #! /usr/bin/perl -w
use Net::SSH::Perl;
use Net::SSH::Perl::Packet;
use Net::SSH::Perl::Constants qw( :msg PROTOCOL_SSH1 );
use IO::Select;

eval {
    my $ssh = Net::SSH::Perl->new("",port=>22);
    #my($stdout, $stderr, $exit) = $ssh->cmd("ls");
    my $pack = Net::SSH::Perl::Packet->new( $ssh, type => SSH_CMSG_USER ); 
    $pack = Net::SSH::Perl::Packet->read_expect($ssh,2 );     
    print $pack->get_str;
        if ($@) {
     print "$@";

 The above perl script should execute the command "ls" remote machine and
should display on the local shell. 
Can anyone please let me know what is the problem in the above script. 


More information about the spug-list mailing list