PHP 到 Perl 套接字通信

Question

到目前为止，我已经编写了一个在后台持续运行的 Perl 服务器，当它接收到入站连接时，会分叉一个进程，然后处理那个连接。我最终希望它能够做的是通过套接字接受入站 php 连接，当然运行这些命令，然后中继和返回信息。到目前为止，我已经设法通过 Perl 脚本客户端实现了 100% 的工作，但在 php 客户端上却不能 100% 工作。

[这里不是粘贴文字的洞壁，而是实际的发送和接收部分。]

print "Binding to port ...\n";
$server = IO::Socket::INET->new(
            Listen => 1, 
            LocalAddr => $_server, 
            LocalPort => $_port, 
            Proto => 'tcp', 
            Reuse => 1, Type => SOCK_STREAM) || die "Cant bind :$@\n";
$proccess = fork();
if ($proccess) {
    kill(0);
}
else {
    while(1) {
        while ($client = $server->accept()) {
            $client->autoflush(1);
            $con_handle = fork();
            if ($con_handle) {
                print "Child Spawned [$con_handle]\n";
            }else{
                while (defined($line = <$client>)) {
                    $command = `$line`;
                    print $client $command;
                }
                exit(0);
            }
        }
    }

正如我所说，这适用于本地和远程的 perl 编写的客户端，但不能 100% 使用 php，我的意思是 100% 是服务器将接收命令但无法发送它的事实返回，或者服务器能够接收命令但客户端无法读取回复。

这是我工作最多的客户端 [php]。

$handle = fsockopen("tcp://xx.xx.xx.xx",1234);
fwrite($handle,"ls");
echo fread($handle);
fclose($handle);

这是工作的 perl 客户端

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my ($host, $port, $kidpid, $handle, $line);

unless (@ARGV == 2) { die "usage: $0 host port" }
($host, $port) = @ARGV;

# create a tcp connection to the specified host and port
$handle = IO::Socket::INET->new(Proto     => "tcp",
                                PeerAddr  => $host,
                                PeerPort  => $port)
       or die "can't connect to port $port on $host: $!";

$handle->autoflush(1);              # so output gets there right away
print STDERR "[Connected to $host:$port]\n";

# split the program into two processes, identical twins
die "can't fork: $!" unless defined($kidpid = fork());

# the if{} block runs only in the parent process
if ($kidpid) {
    # copy the socket to standard output
    while (defined ($line = <$handle>)) {
        print STDOUT $line;
    }
    kill("TERM", $kidpid);                  # send SIGTERM to child
}
# the else{} block runs only in the child process
else {
    # copy standard input to the socket
    while (defined ($line = <STDIN>)) {
        print $handle $line;
    }
}

如果有帮助，我可以在需要时发布整个服务器。

Answer 1

您的服务器希望客户端发送线路。但是您的 PHP 客户端只发送两个字符“ls”。这意味着您的服务器将永远等待客户端发送换行符。

编辑：

1. 您的 Perl（服务器）代码正在使用面向行的协议。你的 PHP 代码不是。您不应该混合使用两种沟通方式。
2. 您的 Perl 客户端确实使用面向行的协议。
3. 您的 PHP 代码应使用 fgets() 而不是 fread()。
4. 在您的服务器中，父进程保持到客户端的套接字打开。这就是为什么当孩子退出时套接字没有关闭，这可能就是为什么您的客户端在另一个客户端连接到服务器之前不会看到 EOF。