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

Question

我可以通過以下方式使用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();

順便說一句，我沒有在此服務器上安裝襪子。 所以我需要沒有他們的幫助。

謝謝！

Answer 1

LWP :: UserAgent和襪子

您可以使用LWP::Protocol::socks perl軟件包使LWP::UserAgent SOCKS 。

恕我直言，這是您自己的perl腳本的更好方法。
對於不想修改的舊Perl腳本， tsocks可能更好。

Answer 2

我找到了一種可能非常適合我的情況的解決方案：

在運行腳本之前，我只是這樣調用tsocks ：

tsocks script_name.pl