Re^2: Urgent Help For Perl Issues

[arvindninestars]

Hi Vinoth, Great its working fine. But one thing if i login into server its landing into default path.But if i need to untar into different path after landing, what can i do? Example : My landing path /home/systems after that need to change "testing" directory and untar. Please help!!!!

[marto]

If you choose to use this familiarise yourself with ssh, and the Net::SSH::Perl documentation, the README shows you where sample/tutorial scripts live within the distribution.

[vinoth.ree]

Just use the cd command with your path and navigate to your path and do untar

my($stdout, $stderr, $exit) = $ssh->cmd("cd $path");
($stdout, $stderr, $exit) = $ssh->cmd("untar tar.gz");

[Anonymous Monk]

Hi Vinoth,

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

This one i used. But file unzipped in home directory only not unzipped inside testing folder.. Any Worng....

[marto]

I suggest you read the documentation and scripts I previous linked to, check for errors, enable debugging. Use code tags when posting code/data, as suggested each time you post. If you're new here read PerlMonks for the Absolute Beginner and How do I post a question effectively?.

[vinoth.ree]

As suggested by marto just print

print "$stdout\n"; 
print "$stderr\n";
print "$exit\n";

after

my($stdout, $stderr, $exit) = $ssh->cmd("cd testing");