Discussion :

[ebaynaud]

Bonjour,

Je souhaite utiliser un petit script PERL pour écouter un port : le port 554. Voici le début de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use strict;
use IO::Socket;
 
my $serveur = IO::Socket::INET->new(LocalPort => 554, Type => SOCK_STREAM, Listen => 1)
	or die "Impossible de devenir serveur : $@\n";

Le problème avec ça, c'est que je suis sous windows, et qu'apparement "les ports en dessous 1024 sont réservés à l'utilisateur root ou équivalent"... Je suis administrateur de ma machine mais ca ne suffit pas. Est-ce donc impossible pour des ports en dessous 1024 ?

[Jedai]

Les ports en-dessous de 1024 sont réservés, les services associés sont théoriquement fixés. Tu as vérifié qu'il n'y avait pas déjà quelque chose en train d'écouter sur le port 554 ? Et regardé s'il n'y avait pas moyen de débloquer ça dans le firewall ?
Par ailleurs normalement on utilise $! plutôt que $@ ($@ est l'erreur fatale survenue dans le dernier eval() ).

--
Jedaï

[ebaynaud]

En effet, le port 554 était utilisé par une autre application et c'était ça le problème (mais en même temps ma solution). Je change tout !