php - 将数据从Web服务器发送到Perl套接字监听器

Question

我尝试将数据从php Web脚本发送到本地perl套接字监听器。
这是perl服务器代码:

#!/usr/bin/perl

use IO::Socket::INET;
use strict;

$| = 1;

my $web = new IO::Socket::INET (
    LocalHost => '127.0.0.1',
    LocalPort => '9001',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
) or die "ERROR in Socket Creation : $!\n";

while ($web->accept()) {
    my $web_address = $web->peerhost();
    my $web_port = $web->peerport();

    print "Accepted New Web Client Connection From : $web_address, $web_port\n";

    my $data = <$web>;
    chomp ($data);
    print "Data from web: $data\n";
}

这是PHP代码:

if(!($sock = socket_create(AF_INET, SOCK_STREAM, 0)))
{
    $errorcode = socket_last_error();
    $errormsg = socket_strerror($errorcode);

    die("Couldn't create socket: [$errorcode] $errormsg \n");
}

echo "Socket created \n";

if(!socket_connect($sock , '127.0.0.1' , 9001))
{
    $errorcode = socket_last_error();
    $errormsg = socket_strerror($errorcode);

    die("Could not connect: [$errorcode] $errormsg \n");
}

echo "Connection established \n";

$message = "GET / HTTP/1.1\r\n\r\n";

if( !socket_send ($sock , $message , strlen($message) , 0))
{
    $errorcode = socket_last_error();
    $errormsg = socket_strerror($errorcode);

    die("Could not send data: [$errorcode] $errormsg \n");
}

echo "Message send successfully \n";

这是perl脚本的输出:

Accepted New Web Client Connection From : , 
Data from web:

这是PHP脚本的输出:

Socket created 
Connection established 
Message send successfully

那么，为什么它实际上不发送数据呢？

Answer 1

$web->accept()仅创建并返回一个对象，该对象可用于读取句柄(用于套接字)。您正在尝试使用$web本身读取，但是它无法读取。换句话说，<$web>不会从套接字读取。 PHP客户端已发送其消息，该消息位于缓冲区中等待读取。

此外，在PHP客户端打印时，它正在填充缓冲区，因为在另一端没有东西将其清空(读取)。如果在某一时刻打印足够，则缓冲区将满，而下一个打印将挂起，仅等待。当不按顺序读取缓冲区时，这是常见的错误来源。

您的代码需要进行一些小的更改

if ( my $listen = $web->accept() ) {
    my ($buff, $recd);
    while (defined($buff = <$listen> ) { 
        chomp($recd = $buff);
        # process the line in $recd
    }
} else { warn "Error with the socket  -- $!"; }

发送时，需要围绕 while的 $buff = <$listen>读取多行内容。对于允许的多个连接，所有这些都应该在一个while循环中。简而言之，对于您发布的示例中的单行消息

my $listen = $web->accept();
my $recd = <$listen>;
chomp($recd);
print "$recd\n";

这是Perl代码所能达到的。我不知道PHP例程是如何工作的(对我来说它们似乎还可以)。

尽管 IO::Socket提供了基本信息，但Perl文档中还有很多其他内容。例如，有一个使用 IO::Socket的服务器示例
Perl IPC，到该页面的最后。

如果我建议，请在开头添加 use warnings;。实际上，它非常有用。我怀疑这会警告您。