如何在tsocks中使用Perl的LWP :: UserAgent GET请求

时间:2019-03-18 10:42:30

标签: perl tsocks

我可以通过以下方式使用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),
  ),

顺便说一句,我没有在此服务器上安装袜子。所以我需要在没有它们的情况下进行。

谢谢!

2 个答案:

答案 0 :(得分:1)

LWP :: UserAgent和袜子

您可以使用LWP::Protocol::socks perl软件包来使LWP::UserAgent SOCKS有用。

恕我直言,这是您自己的perl脚本的更好方法。
对于您不想修改的旧Perl脚本,tsocks可能更好。

答案 1 :(得分:0)

我找到了一种可能非常适合我的情况的解决方案:

在运行脚本之前,我只是这样叫tsocks

tsocks script_name.pl