袜子服务器和客户端

问题描述

我有以下袜子服务器

my $socks_server = IO::Socket::Socks->new(
  ProxyAddr   => "localhost",ProxyPort   => 8000,Listen      => 1,) or die "socket error";
 
while(1) {
  my $client = $socks_server->accept();
  print $client;
  unless ($client) {
    print "ERROR:";
    next;
  }
}

以及以下的Socks Client

use strict;
use warnings;
use IO::Socket::Socks;
 
my $socks_client = IO::Socket::Socks->new(
  ProxyAddr   => "localhost",ProxyPort   => "8000",) or die $SOCKS_ERROR;
 
print $socks_client "foo\n";
$socks_client->close();

Socks客户端打印“ foo \ n”，如何在接收到Socks服务器后将其打印到控制台？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

perl socks