perl UserAgentを使用したソケット接続

Question

次のコードを使用してサーバーに接続するスクリプトがあります。

$sock = new IO::Socket::INET (
            PeerAddr => $server, 
            PeerPort => $port, 
            Proto => 'tcp', 
           ); 

ただし、私はプロキシサーバーの背後にあり、このスクリプトは使用できません。これを克服するために、プロキシサポートを追加する必要があります。 SOの提案はUserAgentを使用することでした。私はPerlの文盲者なので、このコードをUserAgentを使用するものに置き換える方法がわかりません。私はコードの残りの部分に触れたくありません。 を使用して$sockを再定義して、スクリプト作業ファイルにすることはできますか。私が話しているスクリプトは利用可能ですhere

Answer 1

"UserAgent"というモジュールはあなたが参照しているか分かりません。その名前のモジュールはありません。名前の一部としてUserAgentを持つ多くのモジュールがありますが、あなたの状況に該当するものはわかりません。

とにかく、私はあなたがIO::Socket::Socksを探していると思います。私は自分で試したことはありませんが、あなたはできるはずです：

use IO::Socket::Socks; 

my $sock = IO::Socket::Socks->new(
    ProxyAddr => $hostname_of_your_proxy, 
    ProxyPort => $port_number_your_proxy_listens_on, 
    ConnectAddr => $server, 
    ConnectPort => $port, 
); 

残りのコードはそのままのままにしておきます。

Answer 2

私はthis discussionを参照していたと思いますか？しかし、あなたがリンクしたスクリプトのように、HTTPサーバからいくつかのファイルをリモートから取得すること（このLWP :: UserAgentは実際にはより関連性があります）とIO :: Socket（:: INET）を介してファイルを送信することに違いがあります。

あなたが提供する優れたソリューションのCJMを使用するか、ちょうどそのよう、socatを使用することがあります。

socat TCP4-LISTEN:9999 TCP4:moss.stanford.edu:7690 

... 9999は、ローカルプロキシポートを指します。良い：あなたは苔のスクリプトを変更する必要はありません。悪い：最初にsocatをインストールする必要があります。