perl - 如何从 perl 脚本访问 StackExchange API 验证方法？

Question

我正在使用 WWW::Mechanize。对于不需要身份验证的方法，我会像获取任何其他 url 一样获取它们，然后使用 perl JSON 模块解析出我想要的任何数据：

my $response = $mech->get('http://api.stackexchange.com/1.1/questions?fromdate=' . $lasthour)
my $q = from_json($response->content())

我过去曾使用 Mechanize 登录网站，但 Oauth 的内容令人困惑，并且为使用 API 提供的文档表明它适用于 Web 应用程序（需要向 StackExchange 注册？）。

特别是，我对通知方法很感兴趣，尽管我希望正确的代码允许访问任何需要身份验证的方法。

Answer 1

你看过Net::StackExchange2吗？

#for methods that require auth.
my $se = Net::StackExchange2->new(
    {
        site=>"stackoverflow",
        access_token => '<THE ACCESS TOKEN>' ,
        key => '<YOUR APP KEY>'
    }
);

它使用 LWP::UserAgent。即使您不想直接使用 Net::StackExchange2 模块，您也很有可能找到一些可以借鉴的好示例代码。