分散関数呼び出し in Perl DouKaku?

分散関数呼び出し

分散関数呼び出しを実装してください．

呼び出される関数は，定価を整数で，割引率(%)を整数で受け取り，
文字列で「販売価格 ○円（定価○円から○%引き）」を返すものとします．
また，数字は3桁のカンマ区切りにするものとします．

たとえば，pricestring(2000, 20) なら
"販売価格 1,600円 (定価2,000円から20%引き)"
を返します．

関数の呼び出し元と，呼び出される側は，物理的に異なる
サーバに配置できることを条件とします．
呼び出し方法は問いませんが，呼び出し方法に名前がある場合，
それをタグに加えてください．
（XML-RPC，SOAP，CORBA，RMI，など）

また，作成した関数を直列に1万回呼び出して，
実行にかかった時間を測定してください．
測定時は別サーバでなくても構いません．
（なるべく別サーバが望ましいです）

測定環境として，
・サーバとクライアントのCPU・メモリ
・同一サーバ内での実行か別サーバでの実行か
・別サーバの場合，通信経路．（100Mbps Ethernet等）
・言語のバージョン
・ミドルウェアを使用している場合，その名前とバージョン
も併記してください．

1つの言語で複数の分散関数呼び出しの実装方法がある場合，
複数の回答を歓迎します．

出題の意図は，様々な分散呼び出し方法の実装例と，
レスポンス速度の確認にあります．

このお題は沢渡みかげさんの投稿です。まったく手を加えないでいい完成度の投稿で本当に助かります。ありがとうございました。

post comment

Posted feedbacks - Perl

これまたPerlのカバレッジを上げるため。
非常にtrivialなAPI.
http://host/dir/doukaku_remote/fun/arg/more/args
にアクセスすると、text/plainで
Remote::Server::Trivial::fun(arg,more,args)
の実行結果が返る。

測定環境として，
・Server: FreeBSD 6.2-Stable; Xeon 2.4GHz; 2GB RAM; apache-1.3.x; mod_perl
・完全remote
・Perl 5.8.8

速度はmod_perlで100req/sほど。Web API、単一serverとしては悪くないかな。

もっともこの程度のtrivialな作業にHTTPはいささか重たくもあるのではあるけれど。

Dan the Perl Monger

#!/usr/local/bin/perl
#
# $Id: doukaku_remote.cgi,v 0.1 2007/11/08 14:49:27 dankogai Exp dankogai $
#
use strict;
use warnings;
use CGI;
use URI::Escape;
use CGI::Carp qw/fatalsToBrowser/;

sub Remote::Server::Trivial::pricestring{
    my ($price, $discount) = @_;
    my $dprice = $price * (1 - $discount/100);
    "Price: $dprice Yen ($discount% discount from $price Yen)\n";
}

my (@args)  = split m/\//, uri_unescape($ENV{PATH_INFO});
shift @args;
my $cmd = shift @args;
my $result = eval{ 
    no strict 'refs';
    &{'Remote::Server::Trivial::' . $cmd}(@args);
};
die $@ if $@;
use bytes;
print
    "Content-Type: text/plain\n",
    "Content-Length: ", bytes::length($result), "\n\n",
    $result;
# end of server

#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $times = shift || 10000;
my $api_root = 'http://where.ever/you/put/doukaku_remote.cgi';

my $cmd = "pricestring";

$|=1; # autoflush;
for (1..$times){
    my $req = join "/", $api_root, $cmd, $_, int(rand(100));
    my $result = get($req);
    chomp $result;
    print "$_:$result\r"
}
print "\n";
#end of client

DouKaku?

分散関数呼び出し

Posted feedbacks - Perl

Index

Feed

Other

Link

Pathtraq