Net::SSH2 claims to be able to do authentication through an agent. The other modules don't seem to do that, so I'm not sure if it is possible without using Net::SSH2.

One thing I've done in such cases is to run commands through plink or ssh external binaries, but that only works for very limited use cases.

I looked into it, and it seems to be just what I need!

Imma just try to implement it, and I will let you know, once I definately know if it works

Thank you a lot

I tried to make a sample, which test everything I need from the module, but sadly I get an error, which I can't explain:

failed connecting agent (-42 LIBSSH2_ERROR_AGENT_PROTOCOL) at .\sshtest.pl line 7.

I think it should work, because the agent works just fine in CMD.

I would appreciate any help!

Poking around in Net::SSH::Perl and its components, a couple of things suggested themselves to me. First was Net::SSH::Perl::Key->read_private($key_type, $file [, $pass] ) that can read and decrypt a private key using $pass. That with Net::SSH::Perl::Util->_read_passphrase($prompt) might be an approach. While looking at Net::SSH::Perl::Util, though, there was also Net::SSH::Perl::Util->_load_private_key($key_file [, $passphrase]). There is also Net::SSH::Perl::Agent, which indicates it can interact as a client for agent-based publickey authentication.

I know how much "fun" it can be dealing with SSH, so I hope some of the above is helpful.

The Net:SSH:Perl:Agent module doesn't seem to work for me. I get the following error, even with the included sexample code.

Can't call method "identity_iterator" on an undefined value at .\sshtest.pl line 5.

This is the code I used:

#!/usr/bin/perl -w
use Net::SSH::Perl;
use Net::SSH::Perl::Agent;
my $agent = Net::SSH::Perl::Agent->new(1);
my $iter = $agent->identity_iterator;
while (my($key, $comment) = $iter->()) {
    print $key;
}
[download]

I think this means, that $agent is not defined, so Net::SSH::Perl::Agent->new didn't work. My ssh agent works fine in my shell directly with the ssh command tho.

Please Let me know what I might be doing wrong.

Thanks, Ninto!

I don't get any error, but the script you posted doesn't output anything unless I change the version of the agent to 2.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]