Question

以下代码是（伪！）http服务器。它只是发回http请求来自浏览器的ftp请求（例如ftp://localhost:8888/）会发生意外的混淆。有了这个，浏览器将永远连接并保持连接。

我不明白发生了什么！如何控制此行为并忽略ftp请求？

#!/usr/bin/perl
use strict;
use Socket; 
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
use IO::Poll;

local *S;
socket      (S, PF_INET   , SOCK_STREAM , getprotobyname('tcp')) || die "socket: $!\n";
setsockopt (S, SOL_SOCKET, SO_REUSEADDR, 1) || die "setsockopt: $!\n";
bind        (S, sockaddr_in(8888, INADDR_ANY)) || die "bind: $!\n";
listen      (S, 10) || die "listen: $!\n";
fcntl(S, F_SETFL, fcntl(S, F_GETFL, 0) | O_NONBLOCK) || die "fcntl: $!\n";

my $poll=IO::Poll->new;
$poll->mask(*S => POLLIN|POLLOUT);


while( 1 ) {
    $poll->poll();
    for my $reader ( $poll->handles(POLLIN ) ) {
        my $remote = accept (my $connection, $reader);
        my $bytes= sysread $connection,my $header,1024;

        if (defined $bytes) {
            if ($bytes == 0 || (index $header,"\r\n\r\n") < 0) {
                close $remote;
                next;
            } 
        } else {
            close $connection;
            next;
        }

        syswrite $connection,"HTTP/1.1 200 OK\r\n\r\n".$header;
        close $connection;
     }
}

Answer 1

与HTTP不同，FTP以服务器向客户端发送问候语开始。在这种情况下，客户端认为它正在与FTP服务器通信，等待FTP问候，而服务器认为它正在与HTTP客户端通信，正在等待它发送HTTP命令。

解决方案是在尝试sysread之前为客户端套接字（$connection）设置超时。

Perl socket作为（伪）http服务器中断ftp请求！

1 个答案: