Re: Want to Copy files from remote machine(Solaris) to Local Machine(Windows) using FTP::Net

There's a number of potential problems here:

You've defined $local_cwd but haven't used it.
$ftp->ls() does not return a list of files. It will be more like a list of lines returned by ls -l on your Solaris box or dir on your Windows box.
Do you really only want to get files you already have: if -f $_

The documentation for Net::FTP explains what ls() and the other methods do. It also has four examples of checking return values (in the SYNOPSIS) as correctly recommended in the previous post.

Comment on Re: Want to Copy files from remote machine(Solaris) to Local Machine(Windows) using FTP::Net Select or Download Code

Replies are listed 'Best First'.
Re^2: Want to Copy files from remote machine(Solaris) to Local Machine(Windows) using FTP::Net by sarshads (Novice) on Oct 05, 2010 at 13:38 UTC
Thank both of you. I realiaze my mistake and follow the link as given you. I successfully retrieve file to my directory : `use strict; use warnings; use Net::FTP; use Net::Netrc; my $ftp; $ftp = Net::FTP->new ("100.200.100.200", Timeout => 9000, Debug => 3) or die "Cannot connect to some.host.name: $@"; $ftp->login("abc",'def') or die "Cannot login ", $ftp->message; $ftp->cwd("/test") or die "Cannot change working directory ", $ftp->message; $ftp->get("original.pl") or die "get failed ", $ftp->message; $ftp->quit;` [download] Thanks	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Want to Copy files from remote machine(Solaris) to Local Machine(Windows) using FTP::Net
by sarshads (Novice) on Oct 05, 2010 at 13:38 UTC

use strict;
use warnings;
use Net::FTP;
use Net::Netrc;
my $ftp;
$ftp = Net::FTP->new ("100.200.100.200", Timeout => 9000, Debug => 3)
or die "Cannot connect to some.host.name: $@";

$ftp->login("abc",'def')
or die "Cannot login ", $ftp->message;

$ftp->cwd("/test")
or die "Cannot change working directory ", $ftp->message;

$ftp->get("original.pl")
or die "get failed ", $ftp->message;

$ftp->quit;
[download]

[reply]
[d/l]