X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SSH.pm;h=0a441333e28e10234714daf8695f03a60e8d1c62;hb=d28f4970158166eba309962013e9f49886570c92;hp=607cdddca8e6dd62a9ff926db4765bcf7f406091;hpb=95ed9cfbdf3bd335f711539ee79287b6734a82f4;p=Net-SSH.git diff --git a/SSH.pm b/SSH.pm index 607cddd..0a44133 100644 --- a/SSH.pm +++ b/SSH.pm @@ -8,7 +8,7 @@ use IPC::Open3; @ISA = qw(Exporter); @EXPORT_OK = qw( ssh issh sshopen2 sshopen3 ); -$VERSION = '0.01'; +$VERSION = '0.02'; $ssh = "ssh"; @@ -94,10 +94,45 @@ sub _yesno { =back +=head1 EXAMPLE + + use Net::SSH qw(sshopen2); + use strict; + + my $user = "username"; + my $host = "hostname"; + my $cmd = "command"; + + sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!"; + + while () { + chomp(); + print "$_\n"; + } + + close(READER); + close(WRITER); + +=head1 FREQUENTLY ASKED QUESTIONS + +Q: How do you supply a password to connect with ssh within a perl script +using the Net::SSH module? + +A: You don't. Use RSA or DSA keys. See the ssh-keygen(1) manpage. + +Q: My script is "leaking" ssh processes. + +A: See L, L, +L and L. + =head1 AUTHOR Ivan Kohler +=head1 CREDITS + + John Harrison contributed an example for the documentation. + =head1 BUGS Not OO. @@ -106,7 +141,7 @@ Look at IPC::Session (also fsh) =head1 SEE ALSO -ssh(1), L, L +ssh-keygen(1), ssh(1), L, L =cut