perl - 将带有第一个请求的 html 页面返回到在端口 5000 本地运行的 Json Rpc Dispatcher 服务器

Question

我有 Json Rpc Dispatcher Server 在我的本地主机上运行的端口 5000 我需要在访问时获取一个 html 索引页面

http://localhost:5000

这里是 app.psgi 使用 JSON::RPC::Dispatcher；

my $rpc = JSON::RPC::Dispatcher->new;

$rpc->register( 'ping', sub { return 'pong' } );
$rpc->register( 'echo', sub { return $_[0] } );

sub add_em {
  my @params = @_;
  my $sum = 0;
  $sum += $_ for @params;
  return $sum;
}

$rpc->register( 'sum', \&add_em );

# Want to do some fancy error handling? 
sub guess {
  my ($guess) = @_;
  if ($guess == 10) {
    return 'Correct!';
  }
  elsif ($guess > 10) {
    die [ 986, 'Too high.', $guess];
  }
  else {
    die [ 987, 'Too low.', $guess ];
  }
}
$rpc->register( 'guess', \&guess );

现在它只返回带有 GET guess 或 sum 方法请求的 json。

我需要一个 GET 请求，它将返回一个 html 页面并加载一些 Javascript 可能与根请求

http://localhost:5000/ 

Answer 1

根据JSON-RPC 2.0规范：

当进行 rpc 调用时，服务器必须回复一个响应，通知的情况除外。响应表示为单个 JSON Object，...

所以不可能从 JSON::RPC 服务器获取 html 页面。