apache下,用perl写的CGI脚本不能使用socket的吗?


我试过了,写了一个serv脚本,运行监听。再写了一个client脚本,在控制台下运行是没有问题的。可是client放到Apache CGI下就不能建立socket连接了。client脚本的相关权限已经保证了。请问是不是apache不允许执行socket的?

client脚本如下:

   
  #!/usr/bin/perl
  
#客户端
use IO::Handle;
use Socket;

print "Content-type: text/html; Charset: utf-8";
print "\n\n";

$port=20080;
$host='localhost';
$packhost=inet_aton($host);
$address=sockaddr_in($port,$packhost);

socket(CLIENT,AF_INET,SOCK_STREAM,6);
connect(CLIENT,$address)|| print "connect fail";
CLIENT->autoflush(1);

my $line;
while (read(CLIENT, $line, 1024) > 0)
{
print STDOUT $line;
}
close CLIENT;

exit 1;

perl socket

di1994 10 years, 6 months ago

Your Answer