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

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

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

编辑：我没有抓住＆＃39; recv＆＃39;位。你必须使用setsockopt，它不是完全可移植的，所以最终的答案在某种程度上取决于你的平台。以下是一些可能有用的帖子：

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

http://perldesignpatterns.com/?SocketProgramming

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

如，

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

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

1 个答案: