Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
#use strict;
...
$ssh->login($user, $password);
my($stdout, $stderr, $exit) = $ssh->cmd("cd $path");
($stdout, $stderr, $exit) = $ssh->cmd("tar -xvzf XXXX.tar.gz");
  2. or download this
    

...
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $password);
my($stdout, $stderr, $exit) = $ssh->cmd("cd $path && $cmd");