[Perl] Utilisation correcte de timeout

Marsh Posté le 20-09-2013 à 17:43:41

Salut,

C'est vendredi, et je suis bloqué sur un truc probablement assez trivial.

J'essaie d'utiliser Sys::SigAction pour mettre en place des timeouts corrects dans un programme utilisant des sockets. Le timeout "de base" pose problème sur certains LAN ou le firewall droppe les paquets sans informer la machine source, ce qui fait bloquer le programme.

Ce qui me pose souci a priori, c'est de passer proprement ma socket à la routine définie dans timeout_call

La boucle while est placée dans une routine, la variable $sock est locale et non globale.

Code :

use constant SOCKET_TIMEOUT => 5;
use constant SLEEP_TIME => 5;
use constant MAX_SEND_RETRY => 3;
...
while ( $retry++ <= MAX_SEND_RETRY)
{
$sock = IO::Socket::INET->new(
PeerAddr => $cl_address,
PeerPort => $port,
Proto => "tcp",
Timeout => SOCKET_TIMEOUT) or do
{
sleep SLEEP_TIME;
next;
};
timeout_call (SOCKET_TIMEOUT,sub { my $sock = shift ; $sock->send($data_to_send . EOL) ;}, $sock) or do
{
sleep SLEEP_TIME;
next;
};
$alarm_sent=1;
$sock->close();
}

Message édité par ccp6128 le 20-09-2013 à 17:46:42

Reply

Marsh Posté le 20-09-2013 à 17:43:41

Reply

Marsh Posté le 20-09-2013 à 21:48:26

Tu avais lu ces posts: http://www.perlmonks.org/?node_id=732970 ??
Je tenterais d'adapter la méthode commençant par: the final way is to use select, which may seem to be hard work,

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Reply

Marsh Posté le 20-09-2013 à 22:31:18

Ah, j'étais passé sur cette page à l'époque ou je cherchais la solution avec SO_RCVTIMEO et SO_SNDTIMEO (abandonnée car pas trop portable).

J'avais pas trop remarqué la solution avec select, j'avais lu trop vite probablement.

Je mets ça de côté pour recommencer à bosser dessus lundi.

Encore une fois, merci.

Reply

Marsh Posté le 23-09-2013 à 15:54:24

Bon, a priori j'ai un truc qui marche avec Select, sauf truc que j'aurais loupé :

Code :

while ( $retry++ <= MAX_SEND_RETRY ) {
$sock = IO::Socket::INET->new(
PeerAddr => $cl_address,
PeerPort => $port,
Proto => "tcp",
Blocking => 0,
Timeout => SOCKET_TIMEOUT
)
or do {
sleep SLEEP_TIME;
next;
};
$select = IO::Select->new($sock);
if ( $select->can_write(SOCKET_TIMEOUT) ) {
$rc = $sock->send( $data_to_send . EOL );
if (defined($rc)) {
$alarm_sent = 1;
$sock->close();
last;
};
}
}

Reply

[Perl] Utilisation correcte de timeout_call

Sujets relatifs:

Leave a Replay