in reply to Re: Net::OpenSSH Problem
in thread Net::OpenSSH Problem

Ok I am a bit closer. I know that !bash ran correctly in the remote session because while it was sitting there I typed the pwd and received the correct result. I guess now I am confused as to why the program is waiting on me to interact with it instead of continuing to run the other commands. Current code below 

-bash-4.1$ ./test1.pl 
# open_ex: ['ssh','-O','check','-T','-S','/home/kburns/.libnet-openssh
+-perl/kburns-10.10.10.-20023-380016','-l','kburns','10.10.10.1','--']
# _waitpid(20025) => pid: 20025, rc: 
# open_ex: ['ssh','-S','/home/kburns/.libnet-openssh-perl/kburns-10.10
+.10.-20023-380016','-l','kburns','10.10.10.1','--','!bash']

[download]

I typed pwd and it worked so I know !bash ran correctly on the remote end.

pwd
/home/kburns 
my $ssh = Net::OpenSSH->new($host, user => $USERNAME, password => $PAS
+SWORD, str
ict_mode => 0);

$ssh->error and die "Couldn't establish SSH connection: " . $ssh->erro
+r;

$ssh->system('!bash') or die "remote command failed: " . $ssh->error;

print "!bash done\n";

$ssh->system('pwd') or die "remote command failed: " . $ssh->error;

print "pwd done\n"; # never gets here. it hangs

[download]

Replies are listed 'Best First'.
Re^3: Net::OpenSSH Problem
by salva (Canon) on Sep 12, 2013 at 08:15 UTC
    what happens when you run the following code? 
    my $ssh = Net::OpenSSH->new($host,
                            user => $USERNAME,
                            password => $PASSWORD,
                            strict_mode => 0);
$ssh->error and die "Couldn't establish SSH connection: " . $ssh->erro
+r;

$ssh->system('!pwd') or die "remote command failed: " . $ssh->error;
print "pwd done\n";

    [download]
[reply]
[d/l]
      It runs fine outputting my current home dir. Def a problem of it not giving back control to the script or something ?? 
      $ssh->error and die "Couldn't establish SSH connection: " . $ssh->erro
+r;
$ssh->system('!bash') or die "remote command failed: " . $ssh->error;

# remote end will look like this after !bash
# bp>!bash
# [kburns@ssl01-d:Active] ~ # 

print "will never print this line\n";

$ssh->system('pwd') or die "remote command failed: " . $ssh->error;

      [download]
[reply]
[d/l]
        It runs fine outputting my current home dir

        Then, you don't need to execute !bash at all.

        Just run via Net::OpenSSH system (or capture?) the commands you want to run on the remote machine prefixing them by an exclamation mark.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom