perl 腳本如何實(shí)現(xiàn)多線程或者多進(jìn)程

robinzhao518

#!/usr/bin/perl -w
use strict;
use Net::SSH:erl;

#Starting update to GMA Server;
my $Server_Root = "\/home\/Bin20100324"; #修改為實(shí)際服務(wù)器目錄
my $upuser = "root";
my $Program_Root = "\/home/Bin20100324\/";  #修改為實(shí)際源程序目錄

print "Starting update to GMA Server......\n";

open ( SERVER_LIST, "<\/home\/tools\/GMA_list.ini" or die "GMA_list.ini: $!";
while( my $line = <SERVER_LIST>
{
        my ( $ip,$name ) = split /:/,$line;
        chomp($name);
        if( $name =~ /^Game1$/)
        {
                my $getuser = "root";
                my $getpass = "******";
                my $ssh = Net::SSH:erl->new("$ip";
                $ssh->login("$getuser","$getpass";
                my($stdout) = $ssh->cmd("mkdir $Server_Root";
                my $GMAname = $stdout;
                for( my $i=1; $i<7; $i++)
                {
                        system("rsync -pvzcrlDgo --size-only --delete --timeout=30 --bwlimit=1500 $Program_Root -e ssh $upuser\@$ipServer_Root\/Bin$i 1>\/dev\/null" == 0
                        or die "RsyncTool error when updating $name: $! $?";
                        print "Update to $name success!\n";
                }
        }
        elsif( $name =~ /^Game2$/)
        {
                my $getuser = "root";
                my $getpass = "******";
                my $ssh = Net::SSH:erl->new("$ip";
                $ssh->login("$getuser","$getpass";
                my($stdout) = $ssh->cmd("mkdir $Server_Root";
                my $GMAname = $stdout;
                for( my $i=1; $i<7; $i++)
                {
                        system("rsync -pvzcrlDgo --size-only --delete --timeout=30 --bwlimit=1500 $Program_Root -e ssh $upuser\@$ipServer_Root\/Bin$i 1>\/dev\/null" == 0
                        or die "RsyncTool error when updating $name: $! $?";
                        print "Update to $name success!\n";
                }
        }
        else
        {
        #        system("rsync -pvzcrlDgo --size-only --delete --timeout=30 --bwlimit=1500 $Program_Root -e ssh $upuser\@$ipServer_Root 1>\/dev\/null") == 0
        #        or die "RsyncTool error when updating $name: $! $?";
                print "Update to $name success!\n";
        }
}

print "-------------------------------------------------------\n";
print "The all GMA Server updating is success!\n";

robinzhao518

各位大蝦 請問此腳本如何實(shí)現(xiàn)多線程或者多進(jìn)程 并請明示 謝謝！

Ray001

太亂看了。使用代碼框啊

xti9er

use Parallel::ForkManager;

or

use threads;

例子看doc 就足夠

forgerock

maybenot

use Parallel::ForkManager;

or

use threads;

例子看doc 就足夠
xti9er 發(fā)表于 2010-03-30 11:50

   
ForkManager挺好

蘭花仙子

flw曰：用POE
hit***曰：用Coro

bluewaterray

Power Over Ethernet?