Perl

[Perl] Utilisation correcte de timeout_call

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Utilisation correcte de timeout_call

ccp6128

Syntax error

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

Publicité

gilou

Modérateur
Modzilla

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é! --

ccp6128

Syntax error

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.

ccp6128

Syntax error

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;
};
}
}

FORUM HardWare.fr

Programmation

Perl

[Perl] Utilisation correcte de timeout_call

Sujets relatifs
Préprod/Prod, cpan, activestate, intégration librairies	[perl] process defunct avec fork et exec
Import de la fonction C Math modf et utilisation.	[Perl] Eviter les commandes system
Commande cp dans un script PERL	[Résolu][Perl]Regrouper, compter et additionner
installation activate perl version 5.16 sous linux	utilisation de la fonction run() d'un service windows
script perl	[Résolu][Perl] Découper un fichier en plusieurs et optimisation
Plus de sujets relatifs à : [Perl] Utilisation correcte de timeout_call

Page générée en 0.055 secondes