Perl Web service 服務器端

前提：

 安裝了apache /mod_perl/perl (我這裏的版本分別爲 2.0/2.0/5.8)

 

之後就要配置httpd.conf，分配一個單獨的目錄給web service。用於存perl 模塊以及代碼

 

PerlRequire /絕對路徑（或者相對)/startup.pl  ## 參考http://www.fayland.org/journal/mod_perl_configuring.html
<Location /world>
SetHandler perl-script
PerlHandler CLASS::World
</Location>

 

其中startup.pl 代碼如下：

 

# Always a good thing to put at the top of every mod_perl script. This will # save many headaches as you work. use strict; use ModPerl::Util; # Tell mod_perl where to find Hello.pm module use lib qw(/xxx/xxx/xx); ## 這裏重要，因爲後臺的web service的pm要找到這裏。 # The name of the module to load using mod_perl use CLASS::World; # This script must return TRUE, and this line accomplishes that, and conveniently # also checks to ensure that we are actually running mod_perl with our version # of Apache. $ENV{MOD_PERL} or die "not running under mod_perl!";

 

之後在/xxx/xxx/xx 目錄下建立 CLASS/World.pm  perl模塊文件，其內容如下：

package CLASS::World; use SOAP::Transport::HTTP; my $server = SOAP::Transport::HTTP::Apache -> dispatch_to('WorldFunctions'); sub handler { $server->handler(@_); } package WorldFunctions; sub new { bless {}, shift; } sub Hello { my ($s, $name) = @_; return 'Hello, ' . $name . "/n"; } sub GoodBye { my ($s, $name) = @_; return 'Goodbye, ' . $name . "/n"; } 1;

 

 

到此，服務器端就算簡單的完成了。

寫一個簡單的client，調用server：

 

use SOAP::Lite; my $soap_client = SOAP::Lite -> uri('http://your_id_or_domain/WorldFunctions') -> proxy('http://your_id_or_domain/world'); print $soap_client->Hello('Joe')->result; print $soap_client->GoodBye('Joe')->result;

 

 

結果：

Hello, Joe
Goodbye, Joe

 

 

當然我這個還不完美。起碼頁面上還看不到wsdl說明。需要進一步研究：）