hi

Below is my script but when i run the script its not collect the input files from remote server. Why ?. Please help me

Run command Line:

./neax_ftp.pl -i 192.168.10.102 -u baharin -p baharin -r /home/baharin
+/data/input -l /home/sysadmin/bh/input -f *.xml
[download]

The program code as below:

#!/usr/bin/perl

use Net::FTP;
use strict;
use Getopt::Long;

my ($username,$password,$ip,$remotedir,$localdir,$filename,$filemode) 
+= (0,0,0,0,0,0,0);
my ($ftp,$success);

GetOptions (
        "i=s"   => \$ip,
        "u=s"   => \$username,
        "p=s"   => \$password,
        "r=s"   => \$remotedir,
        "l=s"   => \$localdir,
        "f=s"   => \$filename,
        "m=s"   => \$filemode
);

my $log  = "/home/sysadmin/bh/sys.log";
my $err;

open (LOGS, ">> $log") or die ("Can't open $log\n");

#$ftp = Net::FTP->new("192.168.10.102") or die "Can't connect to 190.2
+54.14.34\n";
$ftp = Net::FTP->new($ip, Timeout=>240) or $err=1;
print "LOGIN: $ip\n";
if ($err) {
        print (LOGS "Can't connect to $ip\n");
        $ftp->quit;
}

$ftp->login("$username","$password") or $err=1;
print "LOGIN: $username/$password\n";
if ($err) {
        print (LOGS "Can't login to $ip with $username, $password\n");
        $ftp->quit;
}

$ftp->binary();

$ftp->cwd("$remotedir") or $err=1;
print "LOGIN: $remotedir\n";
if ($err) {
        print (LOGS "Can't change to directory $remotedir\n");
        $ftp->quit;
}

$ftp->get("$remotedir/$filename") or $err=1;
print "LOGIN: DIR\n";
if ($err) {
        print (LOGS "Can't collect file $filename from dir $remotedir\
+n");
        $ftp->quit;
}
$ftp->quit;

close(LOGS);
[download]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.