如何在我的代码中设置 PERL 接收超时？

Question

我想在下面这个特定代码中的 recv 函数中设置超时，因为有时我的脚本会永远卡住。我是套接字编程的新手，所以我非常感谢任何帮助。提前致谢。

use IO::Socket::INET;
use IO::Select;
use LWP::UserAgent;
use JSON::XS 'decode_json';
use Data::Dumper;
use DBI();
sub dbconn {
    my $db_conf = shift;

    my $dbh = DBI->connect("DBI:Pg:dbname=somedatabase;host=somehost", "postgres", "",
                                        {pg_server_prepare => 
                                        0,AutoCommit => 1,RaiseError=>1});
    $dbh->do("SET CLIENT_ENCODING TO 'UTF-8';");
    return $dbh;
}



# auto-flush on socket
$| = 1;

# creating a listening socket
my $socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => '5000',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
);
die "cannot create socket $!\n" unless $socket;

$sel = IO::Select->new( $socket );

print "Server waiting for client connection on port 5000...\n";

my $command = 1;
my $watchTracker = "*HQ,";
my $tl206 = ",LAT:";
my $watchConnectedCheck = ",A,";
my $gpsType;
my $circleString = ",LINK,";
my $dataToSend;
my $new;
my $dbh = dbconn();
while(@ready = $sel->can_read) {

        foreach $fh (@ready) {
            if($fh == $socket) {
                # Create a new socket
                $new = $socket->accept;



                $new->recv($dataReceived, 1024);
                $new->recv($dataReceived, 1024);




                # get information about a newly connected client
                my $client_address = $new->peerhost();
                my $client_port = $new->peerport();
                print "===============================================\n";
                print "===============================================\n\n";
                print "Connection from $client_address:$client_port\n";

                print "General data received: $dataReceived\n\n";

#MORE LINES...

}
            else {
                # Process socket
                # Maybe we have finished with the socket
                $sel->remove($fh);
                $fh->close;
            }
        }
    }
    $dbh->disconnect();

Answer 1

~~也许我误解了这个问题，但是您是否尝试过使用“Timeout”在套接字中设置超时？~~

~~参见 IO::Socket::INET。~~

编辑：我没听懂 'recv' 位。您必须使用 setsockopt，它不是完全可移植的，因此最终答案在某种程度上取决于您的平台。以下是一些可能有帮助的帖子：

How do I set `SO_RCVTIMEO` on a socket in Perl?

http://www.perlmonks.org/?node_id=761935

例如，

$socket->setsockopt(SOL_SOCKET, SO_RCVTIMEO, pack('l!l!', 30, 0))
    or die "setsockopt: $!";

如何在我的代码中设置 PERL 接收超时？

How to set in PERL recv timeout in my code?

sockets

perl

tcp

tcpsocket

tcpserver