perl gearman 测试 1）安装 wget -c http://launchpadlibrarian.net/51244438/gearmand-0.14.tar.gz   tar zxvf gearmand-0.14.tar.gz   cd gearmand-0.14   ./configure   make && make install   cpan -i Gearman::Server cpan -i Gearman::Worker cpan -i Gearman::Client 2)启动gearmand   gearmand -d -L 10.16.27.32 -p 7003   3)书写worker.pl #!/usr/bin/perl -w use Gearman::Worker;   my $worker = Gearman::Worker->new; $worker->job_servers('10.16.27.32:7003'); $worker->register_function( watchtime => \&watchtime ); $worker->work while 1;   sub watchtime {   my $job= shift;        return "arg=".$job->arg; }    perl worker.pl 4)书写client.pl  #!/usr/bin/perl -w use Gearman::Client; use POSIX qw(strftime);   my $client = Gearman::Client->new; $client->job_servers('10.16.27.32:7003'); my $log=$client->do_task('watchtime',"aaaa"); print $$log,"\n"; $log=$client->do_task('watchtime',"aaaabbb"); print $$log,"\n"; 执行client.pl，可看到返回数据