Net :: FTP

Hi,

I need to fetch certain files from the server which has multiple subdirectories. How do i do it with NET FTP in Perl.

Example : \home\code\test and home\code\prod I need to search for files under code (the file may be present in 'test' or 'prod') and get that file to local.

The code I used -

my $dir = "/home/code";
$f->cwd($dir) or die "Can't cwd to $dir\n";
$, = "\n";
my $fileto_get = "sample.sh";
$f->get($fileto_get) or die "Can't get $fileto_get from $dir\n";
 
[download]

This searches only in the specified directory 'code'. The file is present in 'tes't directory but it is not returned unless i change the directory to "/home/code/test".

Please guide me on how to fetch files, by mentioning only the parent directory.

Comment on Net :: FTP Download Code
Re: Net :: FTP by cheekuperl (Monk) on Sep 04, 2012 at 05:04 UTC
To get the files using Net::FTP from remote host, you will have to traverse the remote directory tree yourself. Check the methods in Net::FTP that allow you to list files and directories on remote server, change to that directory and get the file you're looking for.	[reply]
Re^2: Net :: FTP by Anonymous Monk on Sep 04, 2012 at 06:29 UTC
But i do not know in which directory the file exists. Can you please help me in this case?	[reply]
Re^2: Net :: FTP by Anonymous Monk on Sep 04, 2012 at 06:31 UTC
Also, as it throws error if I serach in the wrong directory and the execution stops, I cannot try in all the listed directories	[reply]
Re^3: Net :: FTP by cheekuperl (Monk) on Sep 04, 2012 at 07:39 UTC
as it throws error if I serach in the wrong directory and the execution stops, I cannot try in all the listed directories Shouldn't be the case. You can always cd to directory and check for return codes of FTP list file command. It will tell you whether file exists or not. It won't terminate your program or your FTP session. Bottomline, you'll have to cd to each directory and look for the file.	[reply]
Re^4: Net :: FTP by Anonymous Monk on Sep 04, 2012 at 09:03 UTC
Re^4: Net :: FTP by Anonymous Monk on Sep 04, 2012 at 09:05 UTC
Re^5: Net :: FTP by cheekuperl (Monk) on Sep 04, 2012 at 15:06 UTC
Re: Net :: FTP by aitap (Chaplain) on Sep 04, 2012 at 18:53 UTC
First, set up a list of directories. `$f->cwd($dir) or die "Can't cwd to $dir\n";` Next, instead of dieing in case of inability to `CWD`, switch to the next list element in a foreach loop. For example: `my @directories = qw/code test/; foreach my $dir (@directories) { $f->cwd("/home/$dir") \|\| next ... # your code to fetch the files }` [download] Sorry if my advice was wrong.	[reply] [d/l] [select]


The stupid question is the question not asked
	PerlMonks

Net :: FTP

How many continents have you visited?