gearman perl 测试

概述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::Serv 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，可看到返回数据 总结

以上是内存溢出为你收集整理的gearman perl 测试全部内容，希望文章能够帮你解决gearman perl 测试所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。