gearman perl 测试经验

1、安装wget -c http://launchpadlibrarian.net/51244438/gearmand-0.14.tar.gztar zxvf gearmand-0.14.tar.gzcd gearmand-0.14./configuremake && make installcpan -i Gearman::Servercpan -i Gearman::Workercpan -i Gearman::Client

2、启动gearmandgearmand -d -L 10.16.27.32 -p 7003

3、书写worker.pl#!/usr/bin/perl -wuse 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 -wuse Gearman::Client;use POSIX qw(strftim髫潋啜缅e);my $client = Gearman::Client->new;$client->job_servers('10.16.27.32:7003');my $log=$client->do_task('watchtime',"aaaa");printlog,"\n";$log=$client−>dotask(′watchtime′,"aaaabbb");printlog,"\n";执行client.pl，可看到返回数据