我想在这个 perl 脚本中使用代理,但我不确定如何让它使用代理。
#!/usr/bin/perl
use IO::Socket;
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "localhost",
PeerPort => "8080",
)
or die "cannot connect";
print $remote "GET / HTTP/1.0\n\n";
while ( <$remote> ) { print }
最佳答案
使用内置的 LWP::UserAgent 模块 proxy support .
关于perl - 在 perl 脚本中使用代理,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1746614/