我可以通过以下方式使用tsocks的代理连接到远程URL:
LWP::UserAgent
如何使用Perl的use strict;
use warnings;
use v5.16;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
#my $ua = LWP::UserAgent->new();
my $ua = LWP::UserAgent->new(timeout => 10,
ssl_opts => {
#verify_hostname => 0,
verify_hostname => 0,
SSL_verify_mode => '0x01',
SSL_version => 'SSLv23:!SSLv3:!SSLv2',
}
);
$ua->proxy(['http', 'https' ], 'https://proxy_host:proxy_port' );
my $request = GET ( 'https://remote_url', Accept => 'application/json' );
$request->authorization_basic( 'username', 'password' );
say $request->as_string();
my $response = $ua->request( $request );
say $response->as_string();
模块执行相同的操作?
到目前为止,我一直在尝试这样的操作,但是它不起作用:
ListView(
shrinkWrap: true,
physics: NeverScrollableScrollPhysics(),
children: _getListings(businessListing),
),
顺便说一句,我没有在此服务器上安装袜子。所以我需要在没有它们的情况下进行。
谢谢!
答案 0 :(得分:1)
您可以使用LWP::Protocol::socks
perl软件包来使LWP::UserAgent
SOCKS
有用。
恕我直言,这是您自己的perl脚本的更好方法。
对于您不想修改的旧Perl脚本,tsocks
可能更好。
答案 1 :(得分:0)
我找到了一种可能非常适合我的情况的解决方案:
在运行脚本之前,我只是这样叫tsocks
:
tsocks script_name.pl