How to upload file to the right path using FTP module in Perl

[022267]

Hi, folks,
Here is my question.
Perl script in windows.

#! usr/bin/perl
use NET::FTP;
$upload_ftp_site = "xx.xx.x.xx";
$userid = "xxx";
$passwd = "xxxxxxxx";
$local_file = "C:\\path1\test.txt";
$ftp = Net::FTP->new($upload_ftp_site, Timeout=>30, Debug=>0);
$ftp->login($userid, $passwd) || die("ID $Login/$Passwd : $!\n"
$ftp->binary();
$ftp->cwd("remote_dir\\ftp\\"
if ($ftp->put("$local_file&quot) {
print"Ok\n";
}
else {
print "error\n";
}

the script always puts the file in the root path "home\\

http://www",

instead of "home\\

http://www\\remote_dir\\ftp\\",

I tried the cwd as "home\\

http://www\\remote_dir\\ftp\\",

"\\home\\

http://www\\remote_dir\\ftp\\",

"

http://www\\remote_dir\\ftp\\",

"\\

http://www\\remote_dir\\ftp\\",

and "\\remote_dir\\ftp\\". they didnot work.

My userid and passwd are used to login to "home\\

http://www"

of the remote server if I ftp through cmd window.
can anyone help me to work it out? thanks.

 

[133tcamel]

see if this is of help

#! usr/bin/perl

use NET::FTP;
use File::Basename;

$upload_ftp_site = "xx.xx.x.xx";
$userid = "xxx";
$passwd = "xxxxxxxx";
$local_file = "C:\\path1\\test.txt";
($name,$path,$suffix) = fileparse($fullname);
$basename = basename($local_file);

$ftp = Net::FTP->new($upload_ftp_site, Timeout=>30, Debug=>0);
$ftp->login($userid, $passwd) || die("ID $Login/$Passwd : $!\n");
$ftp->binary();
if ($ftp->put("$local_file", "remote_dir\\ftp\\$basename")) {
    print"Ok\n";
}
else {
    print "error\n";
}

---
cheers!
san.