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;
di1994
10 years, 7 months ago