Perl

[socket en perl] ecouter un port sur son pc

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [socket en perl] ecouter un port sur son pc

matthieu5978

Bonjour à toutes et tous

Code :

use IO::Socket;
$socket= IO::Socket::INET->new
(
PeerAddr => 'localhost',
PeerPort => 4672,
Proto => "UDP",
Type => SOCK_STREAM
)or die "impossible d'ouvrir le port.\n";
$answer=<$socket>;
print $answer;

je ne sais pas pourquoi mais quelque soit la configuration (port et url) mon programme me sort "impossible d'ouvrir le port" et mon firewall ne reagit meme pas (il ne doit donc pas etre sollicité).

Message cité 1 fois
Message édité par matthieu5978 le 18-12-2005 à 15:36:52

Publicité

djtoz

pour une socket udp c'est SOCK_DGRAM

Message cité 1 fois

matthieu5978

djtoz a écrit :

pour une socket udp c'est SOCK_DGRAM

j'ai remplacé par SOCK_DGRAM mais ca ne change rien

merci quand même

Message édité par matthieu5978 le 18-12-2005 à 17:19:58

djtoz

ton port est pas deja en ecoute ?

Message cité 1 fois

matthieu5978

djtoz a écrit :

ton port est pas deja en ecoute ?

Nan je pense pas mais j'ai essayé plusieurs ports comme le 21 (je n'ai pas de serveur ftp) et d'autres pris au hasard et j'ai le meme message.

matthieu5978

djtoz tu avais raison j'ai essayé en mettant comme url : http://www.telecharger.com et 80 comme port et la en effet la connexion s'etablie. Une question: je ne peux donc pas ecouter mes propres ports avec cette methode?

Message cité 1 fois

djtoz

matthieu5978 a écrit :

qu'est ce que tu entends par ecouter mes propres ports ?
tu veut te connecter sur un port qui est en ecoute sur ta machine ?

pospos

justement pour pouvoir te connecter à ce port il faudrait que tu l'ecoute!

si tu fait un autre socket avec un listen sur ce port (et donc plutot le tout en TCP) ca marchera. Et tu aura la joie de pouvoir communiquer avec toi meme. Donne nous de tes nouvelles quand tu en aura

Danjer

matthieu5978 a écrit :

Bonjour à toutes et tous

Code :

use IO::Socket;
$socket= IO::Socket::INET->new
(
PeerAddr => 'localhost',
PeerPort => 4672,
Proto => "UDP",
Type => SOCK_STREAM
)or die "impossible d'ouvrir le port.\n";
$answer=<$socket>;
print $answer;

je ne sais pas pourquoi mais quelque soit la configuration (port et url) mon programme me sort "impossible d'ouvrir le port" et mon firewall ne reagit meme pas (il ne doit donc pas etre sollicité).

Salut,
Le fond de ton probleme c'est surtout les parametres que tu mets pour IO::Socket::INET. Client ou Server ? Si tu utilise les mots clefs "Peer", tu fais un client. Si tu utilise les mots clefs Local, tu fais un serveur (je shematise, c'est pas vrai du tout :non: ). En perl, tout est fait pour etre simple : Pas besoin d'en rajouter pour faire "cool". :sol:

Server.pl :

Code :

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $sock = IO::Socket::INET->new(LocalPort => 4672,
Proto => 'udp'
)
or die "Can't bind : $@\n";
print "server up\n";
while (<$sock> ) {
print;
}

Client.pl :

Code :

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $sock = IO::Socket::INET->new(PeerPort => 4672,
PeerAddr => 'localhost',
Proto => 'udp',
)
or die "Can't bind : $@\n";
while (<> ) {
$sock->send($_);
}

---------------
Cdl, Danjer

matthieu5978

merci à tous

FORUM HardWare.fr

Programmation

Perl

[socket en perl] ecouter un port sur son pc

Sujets relatifs
[socket] plantage sur les specifications du socket sous linux en C++	[C et Linux]: Prog port serie
Socket ICS	pb pour scanner port
savoir si une socket C est encore connectée	Pb Socket et fichier
problème de port	pb de redirection en perl
port parallèle Linux (Debian)	Mode texte et question sur les socket.
Plus de sujets relatifs à : [socket en perl] ecouter un port sur son pc

Page générée en 0.061 secondes