Net::OpenSSH > nachfolgende, abhängige Kommandos - #170513 (Netzwerkprogrammierung und Netzwerke mit Perl)

guest salva

2013-09-23 12:20

Running a shell is easy:

Code (perl): (dl )

my $ssh = Net::OpenSSH->new(...);
my ($in, $out, $pid) = $ssh->open2(); # passing no cmd will start a shell
print {$in} "ls\n";
while (<$out>) {
  print "out: $_";
  last if /$prompt_re/;
}
print {$in} "pwd\n";
...

Sometimes the following also works:

Code (perl): (dl )

1
2

my $out = $ssh->capture({stdin_data => 'ls\npwd\n'});
print "output:\n$out";

Last edited: 2013-09-23 12:26:53 +0200 (CEST)