Re^6: Unable to connect to some SFTP servers using Perl::SFTP

[salva]

The brackets are being intercepting by the shell. You have to properly quote shell metacharacters... actually, as there are two shells being invoked (the one used by perl to run your command and the one you are calling explicitly), you will have to double quote your arguments.

If you want to follow that route and need help about quoting I advice you to post a new question.

[skylinedreamer]

Found a fix by using quotemeta(). Did that to all my parameters and its working. Thanks

for($i = 0; $i <= $#fields; $i++)
{
$fields[$i] = quotemeta($fields[$i]);
}

[skylinedreamer]

Update:

unless (fork())
{
my $i;
for($i = 0; $i <= $#fields; $i++)
{
     $fields[$i] = quotemeta($fields[$i]);
}
#print $fields[0] ;
system("gnome-terminal --title $fields[0] -x bash -c './uploader0.1.pl
+ $index @fields $file2send; echo Press any key to exit ...; read -n1'
+");
exit(0);
}

[skylinedreamer]

Permission denied was solved by enabling keyboard interactive login. ssh_args was also passed to the sftp login as follows

## SFTP Connection
my %args = (user      => $user,
            password  => $pass,
            debug     => 1,
            ssh_args => { interactive => 1,
                         identity_files => 
                                   [ "/usr2/username/.ssh/id_rsa"], 
                        protocol=>'2,1' 
                     } 
           );

my $sftp = Net::SFTP->new($host, %args) or
    do
    {
        print "Unable to connect to $name\n";
        print "Aborting Connection\n"; 
        goto END;
    };