我可以通过以下方式使用来自tsocks的代理连接到远程url:
tsocks telnet host port
我如何使用Perl的LWP::UserAgent
模块来做同样的事情?到目前为止,我一直在尝试这样做,但它不起作用:
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();
顺便说一下,我没有在这台服务器上安装socks。所以我需要在没有他们的情况下做到这一点。
谢谢!
发布于 2019-03-19 00:59:36
LWP::UserAgent和SOCKS
您可以使用LWP::Protocol::socks
perl包使LWP::UserAgent
SOCKS
具有能力。
对于你自己的perl脚本来说,这是更好的方式。
对于您不想修改的遗留perl脚本,tsocks
可能更好。
发布于 2019-03-18 20:01:43
我找到了一个可能非常适合我的情况的解决方案:
在运行脚本之前,我只需像这样调用tsocks
:
tsocks script_name.pl
https://stackoverflow.com/questions/55219465
复制相似问题