gearman perl 测试经验

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−>dotask(′watchtime′,"aaaabbb");print

log,"\n";

执行client.pl，可看到返回数据