Hello Everyone:

I am uisng NET:FTP module to access a remote server. Everyone 5 minutes, there is cron job calling my script to
upload file onto the remote server.

I would like to knnow how can I close the SFTP connection without exiting my Perl script. I appreciate your advises and help!
Would it be OK, If I don't close SFTP connection, will it affect the file transfer?

My code snippet

#!/usr/bin/perl
use Net:FTP;

sub ftp_send() {
my($file) = @_;
$sftp = Net:FTP->new('xxx', user=>'zzz', password=>'yyy', debug=>1);
$sftp->put("$homedir", "$remote");
#close the SFTP connection here exit SFTP environment
}

if ($sth->rows > 0)
{
while($href = $sth->fetchrow_hashref()) {
$optCount++;
&build_file($href);
}

$filename = 'test.txt';
open(out, ">>/home/$filename") || die("Couldn't open data file $!\n");
print out $table;
close(out);
&ftp_send($filename);

}

Looks like your post was hit by auto-smileys.

It's based on Net:: SSH::Perl. If you dig around the source, you'll see that it has an attribute called {ssh}, which contains the actual ssh connection.

Try opening a connection with debug=>1.

Then try and undef your Net:: SFTP object and see if you get any indication that Net:: SFTP deleted itself.

I didn't see a DESTROY block or a general close method in either module, so the debug statements may not say for certain. In that case, just have your script sit and wait for a while and in a separate terminal check whether the connection is closed with netstat -a -p tcp | grep ssh or something similar.

There is also a mailing list dedicated to that module, you can try there.

(Edit: removed smiley pollution)