perl - 在 Perl 中从解码的 JSON 解析 request_uri 标头的方法

Question

好的，这就是我们正在做的事情。我们正在查看一个 json 请求/响应字符串。

代码片段（假设使用了相关模块）：

 if( open( my $json_file, $filename ))
 {
    my $json = JSON->new;
    my $data = $json->decode(<$json_file>);
    close( json_file );
    $request_uri = $data->{'input'}{'Headers'}{'REQUEST_URI'}; 
 }

所以 $request_uri 看起来像

 /user/12345?param1=4&param2=9956

虽然我可以使用正则表达式或其他任何方法从那里提取数据，但我确信这是一种常见的情况，应该有一种方法可以将这个特定的 REST 解析为其部分，然后将它们提取出来。我在 REST 手册中没有看到这一点，这似乎更多地是关于构建请求。

Answer 1

使用URI模块。

my $request_uri = URI->new( $data->{'input'}{'Headers'}{'REQUEST_URI'} );

my $path  = $request_uri->path;
my $query = $request_uri->query;
# etc