Re^9: Perl sftp behavior when there are no files in the share

[soonix]

This is actually two replies in one. First, thanks (and ++) to Corion for pointing out the mistake in my solution above.

Now Bindo, your question for a solution without CPAN... I think doing SFTP in pure Perl, while possible, would be difficult and error-prone. If you just don't want any additional CPAN modules, that's another question:

As far as I see, your $REM_FILE already is a file name without directory, so you don't need the basename function and module, and can simply

$sftp->get($REM_FILE, $REM_FILE, callback => \&show_progress)

Perhaps that already does what you want.

Update: second parameter in get corrected

[Bindo]

Appologies gentlemen that I was away. Well thank you everyone who have shared the thoughts towards my query. Mr Soonix no luck sir. Following is exactly what I tried, No progress is shown when I downloaded file :(.

print "Connecting to the sftp share! Please wait....!\n";
                my $sftp = Net::SFTP::Foreign->new($LOG_HOST, user => 
+$REM_USER, password => $REM_PASSW);
                $sftp->setcwd($REM_PATH) or die "unable to change cwd:
+ " . $sftp->error;
                print "OK. On the share! Downloading the file \"$REM_F
+ILE\"...................!\n\n\n";
                $sftp->error and die "Problem connecting to the share.
+..!!!! " . $sftp->error;
#               if ($sftp->get($REM_FILE)){
                if ($sftp->get($REM_FILE, $REM_FILE, callback => \&sho
+w_progress)) {
                        print "File \"$REM_FILE\" downlaoded to ===>  
+\"$LOC_PATH$LOC_DIR\"\n\n";
                }
                else {
                        print "File \"$REM_FILE\" does not seem to hav
+e been sent. Please re-request...!\n\n";
                }


sub show_progress {
        my($sftp, $data, $offset, $size) = @_;
        print "downloaded $offset of $size bytes\r";

[soonix]

But the files are transferred and the other print statements are executed?

If I understand Net::SFTP::Foreign correctly, the callback function should be executed at least once per call to ->get.

Maybe it is overwritten too quickly - what if you remove the \r or replace it with \n?

[Bindo]

Thanks again Mr Soonix. Yes sir files get downloaded with no problems. Will try what you suggested too and let you know. I think there is a problem with the net:sftp foreign with regard to it's call back feature. May be that is the reason I couldnt find a single person on the net who has gotten it to work.