perl连接SSH的代码，RH AS3，Perl 5.8时使用的

线程是10个，写在代码里面了，没有作为参数。

#!/usr/bin/perl

use threads;
use Net::SSH::Perl;
use strict;

local $SIG{ALRM} = sub { die "timeout/n"; };

sub Usage
{
print "This script used to execute command on remote server,code by xingguo/n";
print "GetPkgVer.pl <HostFile> <TimeOut> <ResultFile>/n";

exit 0;
}

if( @ARGV != 3 )
{
Usage( );
}

my $hosts_file = $ARGV[0];
my $time_out = $ARGV[1];
my $result_file = $ARGV[2];

my $user = "name";
my $pass = "password";

if( -e $result_file )
{
print "Result file exists,please change another one/n";
exit 0;
}

my $max_thread = 10;
my @thread_array;

my $cmd = "last | grep hacker";

system( "touch $result_file" );

open( ResultHandle, ">> $result_file" ) || die "Open result file error.../n";

open( HostsHandle, "< $hosts_file" ) || die "Open hosts list error.../n";

sub ExecCmd
{
my $host = shift;
chop( $host );

my $current_host = $host;
print "testing $host.../n";

my $output;

eval
{
alarm($time_out);

my $ssh = Net::SSH::Perl->new( $host );

$ssh->login($user, $pass);

my( $output ) = $ssh->cmd($cmd);

if( $output ne "" )
{
print ResultHandle "$host:/n$output/n";
print "$host:/n$output/n";
}
alarm(0);
};
if( $@ =~ /timeout/ )
{
print "Connect to $current_host time out./n";
}
}

while( my $host = <HostsHandle> )
{
my $total = threads -> list( );

while( 1 )
{
if( $total >= $max_thread )
{
$total = threads -> list( );

#print "Now Count: $total/n";

foreach my $join_thread ( threads -> list(threads::joinable) )
{
#print "Try to join ".$join_thread -> tid( )."/n";
$join_thread -> join( );

$total --;
}
sleep 1;
}
else
{
last;
}
}

my $work_thread = threads -> new( /&ExecCmd, $host );
}

foreach my $join_thread ( threads->list(threads::all) )
{
$join_thread -> join( );
}

print "All Done!!/n";

close( ResultHandle );
close( HostsHandle );