perl - mason如何调用外部WEB API

Question

我正在使用 mason 调用 API（基于 Web，我可以使用 GET 调用它），以便可以返回 json 文件。

我知道m->comp()可以在里面使用。但是外部可以使用什么功能呢？

Answer 1

听起来您想向外部 url 发出 http 请求。由于您只是将 perl 嵌入到 html 中，因此您可能只需要一个使用HTTP::Request和LWP::UserAgent来发出请求的 perl 块。像这样的东西：

my $ua = LWP::UserAgent->new;
my $response = $ua->request( HTTP::Request->new( "GET", "http://https://api.twitter.com/1/users/show.json?screen_name=aplusk" ) );
my $data = $response->content();

然后让HTML::Mason对 json 做任何你想做的事情$data