使用perl脚本代理

发布时间：2020-12-15 23:28:49 所属栏目：大数据来源：网络整理

导读：我想在这个perl脚本中使用代理,但我不确定如何使用代理. #!/usr/bin/perluse IO::Socket;$remote = IO::Socket::INET-new( Proto = "tcp",PeerAddr = "localhost",PeerPort = "8080",) or die "cannot connect";print $remote "GET / HTTP/1.0nn"; while (

我想在这个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.0nn";
    while ( <$remote> ) { print }

解决方法

使用LWP :: UserAgent模块,内置 proxy support.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!