Re^2: Net::SFTP::Foreign getting files

Thanks for pointing out the setcwd as it was something I missed. The system that is being connected to does have a jailed ftp directory so it does show as root but it could've been a problem in the future.

I still get a number being assigned as the file name in the output. I had added some print statements to see what file names I was getting and I don't get anything. In the glob I had also tried names_only=>1

Connected to 0.0.0.0(0.0.0.0)
Trying to login to 0.0.0.0 
Login was successful.
0
Failed to retreive file 0 : 
1
Failed to retreive file 1 : 
1
Failed to retreive file 1 : 
Failed to retreive file snapshot_20130410 :
[download]

Comment on Re^2: Net::SFTP::Foreign getting files Download Code

Replies are listed 'Best First'.
Re^3: Net::SFTP::Foreign getting files by salva (Canon) on Apr 11, 2013 at 14:14 UTC
Oh, I see, you are calling `glob` in scalar context where it returns the number of files matching. Also, you don't need `mget` when you have already used `glob` to resolve the name. `get` will do in that case: `($file) = $sftp->glob($file, names_only => 1); defined $file or die "file not found"; $sftp->get($file, "$ai_dest_day/$file");` [download]	[reply] [d/l] [select]
Re^4: Net::SFTP::Foreign getting files by kofs79 (Initiate) on Apr 11, 2013 at 14:47 UTC
Ok now I am getting the file names and downloading them the way I was hoping for with one exception. In my script I want a file "IRP_20130410" the remote server has a file named "IRP_20130410000438.txt" The remote windows machine adds 6 characters for time and the ".txt" extension. I want to be able to match the file name I am looking for and don't care about the remaining characters. So can I just put a wild card in the `glob`? `($file) = $sftp->glob("${file}*", names_only => 1); defined $file or die "file not found"; $sftp->get($file, "$ai_dest_day/$file");` [download]	[reply] [d/l] [select]
Re^5: Net::SFTP::Foreign getting files by salva (Canon) on Apr 11, 2013 at 15:14 UTC
yes, `glob` also accepts Perl regular expressions: `... my $start = quotemeta "$file$yesterday"; my ($file) = $sftp->glob(qr/^$start\d{6}$/, names_only => 1); ...` [download] But there are easier ways to do what you want. For instance, you can use a regular expression matching all the prefixes in `@ai_files_day` plus `$yesterday` plus any six digits and let `mget` download all the files matching: `$sftp->setcwd($ai_dir); my $starts = join('\|', map quotemeta, @ai_files_day); $sftp->mget(qr/^(?:$starts)$yesterday\d{6}$/, $ai_dest_day);` [download]	[reply] [d/l] [select]