ねもぷらす

ふぁいんでぃんぐねもの日記。プログラミングとか育児とか

ネットワ-ク設定うまくいかない。。

perl
  • Perl健忘録
    • SORP::Lite
      • Server.cgi
#!/usr/bin/perl

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
      ->dispatch_to('SOAPServer')
      ->handle();

package SOAPServer;

sub helloWorld {
  return "Hello, world !\n";
}

sub tryMath {
  my ($class, $x, $y) = @_;
  return {'sum' => $x + $y, 'difference' => $x - $y};
}
      • Client.cgi
#!/usr/bin/perl

use SOAP::Lite;

print "Content-type: text/html\n\n";
print "<html><head><title>Client.cgi</title></head>";
print "<body><pre>\n";
print "start soap\n";

eval {

  my $server = SOAP::Lite ->uri('urn:SoapServer')
                          ->proxy('http://127.0.0.1/cgi-bin/SOAP/server.cgi');

  print $server->helloWorld()->result || die "get message ERR";

  my $result = $server->tryMath( 9, 3 )->result || die "trymath ERR";
  my $sum = $result->{'sum'};
  my $difference = $result->{'difference'};

  print "<H4>sum  = $sum</H4>";
  print "<H4>diff = $difference</H4>";

};
if($@){ print "<P>ERROR! : $!<P>\n"; }

print "end soap\n";
print "</pre></body></html>\n";


+ 1歩くらい踏み込んだ HelloWorld 。
わかったっちゃ解かりました。さて、どうしたものか。。もっと遊ぶ時間が欲しい〜