FTP from Window machine to Linux machine the List of Files having C++ changes

[shashisingh]

Hi All,

I have changed my C++ code in Source Insight Editor and I wanted this code should FTP to Linux Machine through Script but not manually.
Can anyone have knowledge of how to FTP the code through Script.
FTP from Window machine to Linux machine the List of Files having C++ changes


Thanks & Regards
Shashi Singh

[RonB]

There are several different modules on CPAN that can handle FTP.

Here's a working example I posted a couple weeks ago on another forum. It requires 2 separate modules 1) Net::FTP::Foreign and Net::SSH2.

#!/usr/bin/perl
 
use warnings;
use strict;
use Net::SFTP::Foreign;
use Data::Dumper;
 
my $host = '10.100.0.118';
my $sftp = Net::SFTP::Foreign->new($host,
                                   backend => 'Net_SSH2',
                                   user => 'me',
                                   password => 'mypass');
$sftp->die_on_error("Unable to establish SFTP connection");
$sftp->setcwd('/home') or die "unable to change cwd: " . $sftp->error;
 
my @files = $sftp->ls('.');
print Dumper \@files;

Output Results:

c:\test>ftp_test.pl
$VAR1 = [
          [
            {
              'a' => bless( {
                              'mtime' => 1361376188,
                              'atime' => 1431030184,
                              'perm' => 16877,
                              'flags' => 15,
                              'size' => 4096,
                              'uid' => 0,
                              'gid' => 0
                            }, 'Net::SFTP::Foreign::Attributes' ),
              'filename' => '.',
              'longname' => 'drwxr-xr-x    3 root     root         4096 Feb 20  2013 .'
            },
            {
              'filename' => '..',
              'longname' => 'drwxr-xr-x   24 root     root         4096 May  6 08:59 ..',
              'a' => bless( {
                              'gid' => 0,
                              'uid' => 0,
                              'flags' => 15,
                              'size' => 4096,
                              'atime' => 1431024163,
                              'perm' => 16877,
                              'mtime' => 1430927972
                            }, 'Net::SFTP::Foreign::Attributes' )
            },
            {
              'filename' => 'rkb',
              'longname' => 'drwx--x--x   63 rkb      rkb         12288 May  7 08:54 rkb',
              'a' => bless( {
                              'mtime' => 1431014091,
                              'perm' => 16841,
                              'atime' => 1431017837,
                              'flags' => 15,
                              'size' => 12288,
                              'uid' => 500,
                              'gid' => 500
                            }, 'Net::SFTP::Foreign::Attributes' )
            }
          ]
        ];