Question

I have a list of files on host machine say in directory /src/.
The directory has more subdirectories. now this directory is copied onto remote machine after mounting. Now the files are preset in remote machine in directory /dst.

Example. If I had /src/a/f1, /src/b/f2
I will have on remote machine /dst/a/f1 ,/dst/b/f2

Now I only have information on host directory,host file. Using this information how do I access files on remote machine using ssh in perl. I would have to cd to /dst and read files from there. How do I do this cd and read in one single ssh command.

Thanks.

Answer 1

If you want to do it all without delegating to /usr/bin/ssh, check out Net::SSH2, and File::Spec

You’ll need scp_get ( remote [, local ] )

It will look something like this.

use File::Spec ();
use Net::SSH2 ();
my ( $vol, $dir, $file ) = File::Spec::splitpath( $path );
my @dirs = File::Spec::splitdir( $dir );

## Change the root dir
$dirs[0] = 'dst'; # new_root_dir

my $new_remote_path = File::Spec::catfile( @dirs, $file );

  ## Almost right from Net::SSH2 SYNOPSIS
  my $ssh2 = Net::SSH2->new();
  $ssh2->connect('example.com') or die $!;
  if ($ssh2->auth_keyboard('fizban')) {

      my $sftp = $ssh2->sftp();

      my $fh = $sftp->open('/etc/passwd') or die;
      print $_ while <$fh>;

      ## or $ssh2->scp_get( $new_remote_path );
  }