Code:
$sftp->ls('myDirectory', ordered => 2, wanted => sub { if ( $_[1]->{longname} =~ /^d/ ) { $dircount++;
$sftp->ls('myDirectory', ordered => 2, wanted => sub { if ( $_[1]->{longname} =~ /^d/ ) { $dircount++;
unless(move("ToTransfer\\$filelist[$li]->{filename}", "ToTransfer\\Transferred")) { print "Couldn't move the
#!/usr/local/bin/perl use Net::SSH::Perl; use Net::SCP::Expect;
Leave a comment: