如何使用Perl：：Client：：Automated模块通过代理连接到HTTPS服务器？

Question

我刚开始使用JIRA和REST API.Please，告诉我如何使用JIRA::Client::Automated模块连接到HTTPS服务器。我正在尝试使用下面的代码连接到jira服务器。

use strict;
use warnings
use JIRA::Client::Automated;

my $user = 'foo';
my $pass = 'bar';
my $url = 'https://xxx.yyy';

my $jira = JIRA::Client::Automated->new($url, $user, $pass);

但是使用上面的代码总是给我500个错误，说无法连接。由于我试图从本地机器连接，所以请求不会通过本地系统代理进行。请让我知道如何通过代理连接。

谢谢你的建议，丹尼尔。我按照你的建议编辑了这段代码。

use strict;
use warnings
use JIRA::Client::Automated;

my $user = 'foo';
my $pass = 'bar';
my $url = 'https://xxx.yyy.com/jira-stage/';

my $jira = JIRA::Client::Automated->new($url, $user, $pass);
my $ua = $jira->ua();
$ua->proxy('http', 'http://proxy.com:8000');
$search_results = $jira->search_issues(project in (sample), 0, 1000);
my $count = $search_results->{'total'};
print "$count";

但仍然面临同样的issue.Please建议。

Answer 1

查看JIRA::Client::Automated的文档。您可以从其中获取LWP::UserAgent对象：

my $ua = $jira->ua;

根据LWP::UserAgent的文档，可以像这样设置代理。

$ua->proxy('https', 'https://proxy:8080/');

或者让它以这样的方式从各自的环境变量加载代理设置：

$ua->env_proxy;