Perl

[Perl] Timeout sur socket

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Timeout sur socket

burgergold

5$? va chez l'diable!

J'ai une petite application client/serveur

le serveur tourne en permanence

j'aimerais éviter qu'un petit malin s'amuse à bloquer le tout en effectuant un telnet sur le port et en n'envoyant aucune chaine.

Je ne peux pas mettre qu'un simplement timeout sur le socket parce que certaine commande que le client demande peuvent prendre beaucoup de temps

ce que je cherche, c'est plutot un timeout sur un "non-envoi" de commande par le client.

voici une utilisation normale

C se connecte à S
C envoit une commande à S
S effectue la commande
S envoit la réponse à C
C se déconnecte

je veux éviter

C se connecte à S
C glande pendant des heures et bloque le socket

une idée?

Publicité

pospos

si tu est sous windows tu n'as pas le choix: il faut que tu fasse un select.
Si tu est sous linux tu peux aussi utiliser alarm. par contre apres ca va dependre de la version de perl que tu utilise (safe signals ou pas....) et du coup il vaudra mieux utiliser les signaux posix. Le mieux c'est d'utiliser ce module: Sys::SigAction. il va gerer les conneries de safe/ unsafe et tout de bordel.

Mais dans tous els cas la solution du select est sand doute plus propre:
tu fais ton socket et tu attends qu'il ai kkchose à lire avec un select (ou IO::Select si t'es pas à cheval sur les perfs).
Par contre si tu veux lire une ligne (ou utiliser read au lieu de sysread) tu risque à nouveau de bloquer si il n'y a pas assez de choses à lire. dans ce cas il faut passer aux sockets non bloquants... (et la encore c'est different sous windows et unix!)

tiens voila des functions qui devraient marcher pour ca:

Code :

use POSIX ();
use constant WIN32 => $^O =~ /win32/i;
use constant O_NONBLOCK => &POSIX::O_NONBLOCK;
use constant F_GETFL => &POSIX::F_GETFL;
use constant F_SETFL => &POSIX::F_SETFL;
sub nonblock {
my $sock = shift;
if (WIN32) {
my $set_it = "1";
ioctl( $sock, 0x80000000 | (4 << 16) | (ord('f') << 8) | 126, $set_it) || return 0;
} else {
fcntl($sock, F_SETFL, fcntl($sock, F_GETFL, 0) | O_NONBLOCK) || return 0;
}
}
sub block {
my $sock = shift;
if (WIN32) {
my $set_it = "0";
ioctl( $sock, 0x80000000 | (4 << 16) | (ord('f') << 8) | 126, $set_it) || return 0;
} else {
fcntl($sock, F_SETFL, fcntl($sock, F_GETFL, 0) & ~O_NONBLOCK) || return 0;
}
}

(j'importe les constantes à la main pasqu'en fait, commme pour bcp de modules basées sur des .h, ce ne sont pas de vraies constantes mais des appels de fonction => en faisant un use constant on est certain d'avoir de vraies belles constantes compilées)

burgergold

5$? va chez l'diable!

c'est sous AIX, perl-5.8.3

burgergold

5$? va chez l'diable!

hum jvois pas trop comment intégré tout ca

je lance une alarme qui après X seconde va débloquer mon socket

si je recois de l'input du socket, j'annule l'alarme

c'est un peu ca?

pospos

en gros (avec la fonction alarm de perl, mais le mieux est d'utiliser Sys::SigAction), tu fais comme ca:

local $SIG{ALRM} = {die "timeout"};
eval{
alarm 10;
read...
alarm 0; # pour annuller l'alarme
}
alarm 0;
if ($@) {
if ($@ eq 'timeout') {
....

}
}

burgergold

5$? va chez l'diable!

hum...

local $SIG{ALRM} = {die "timeout"};

ton die "timeout" se fera du coté serveur right?
donc ca arretera le daemon qui ne doit pas s'arreter?

pospos

mais bon dans tous els cas si tu veux un truc plus fin, il va falloir gerer tout ca de maniere asynchrone ou multi tache (POE, Net::Server, IO::multiplex et autres modules du genre...)

pospos

non car il y a un eval

burgergold

5$? va chez l'diable!

dac je test ca jeudi au boulot et je t'en redonne des nouvelles

merci

burgergold

5$? va chez l'diable!

ca fonctionne #1

merci

FORUM HardWare.fr

Programmation

Perl

[Perl] Timeout sur socket

Sujets relatifs
Socket et joie de vivre !	SIGPIPE, perl et Win32
[SOCKET]java.net.SocketException: Connection reset	perl avec sql server 2000
[Perl] Transformer code shell en perl	[PERL] Split
Messenger [GTK+ & Socket]	Créer un serveur socket pour un client flash
CGI avec Perl ou PHP	[PERL] Aide SVP pour recharger un script perl
Plus de sujets relatifs à : [Perl] Timeout sur socket

Page générée en 0.047 secondes