Portée des variables

**Mercenary Developer** · 24/06/2009, 12h00

Bonjour,

J'essaye d'écrire un serveur/client UDP, et j'ai un petit problème, voici le source du serveur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
#!/usr/bin/perl -w
 
use strict;
use IO::Socket;
 
my($sock);
my($newmsg);
my($port);
my($ipaddr);
my($arret);
my($boucle);
my($x);
my($y);
my($dir);
my($MAXLEN);
my($PORTNO);
 
$arret = 0;
$boucle = 0;
$x = 0;
$y = 0;
$dir = 0;
$MAXLEN = 20;
$PORTNO = 1027;
 
$sock = IO::Socket::INET->new( LocalPort => $PORTNO, Proto => 'udp') or die "socket: $@";
 
print "Serveur demarre sur port $PORTNO\n";
 
while ( $arret == 0 )
{
	if ( $sock->recv( $newmsg, $MAXLEN ,MSG_DONTWAIT ) )
	{
		($port,$ipaddr) = sockaddr_in($sock->peername);
		print "Recu $newmsg\n";
		if ( $newmsg =~ "^GO+" )
		{
			$boucle = 1;
		}
	}
	if ( $boucle == 1 )
	{
		if ( $dir == 0 )
		{
			if ( $x == 100 )
			{
				$y++;
				if ( $y == 100 )
				{
					$dir = 1;
				}
			}
			else
			{
				$x++;
			}
		}
		else
		{
			if ( $x == 0 )
			{
				$y--;
				if ( $y == 0 )
				{
					$dir = 0;
				}
			}
			else
			{
				$x--;
			}
		}
		$sock->send( $ipaddr.";".$x.";".$y."\0\n" );
		sleep ( 1 );
	}
} 
die "recv: $!";

et le source du client:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
 
use IO::Socket;
use strict;
 
my($sock, $msg, $port, $ipaddr, $hishost, $MAXLEN, $PORTNO, $TIMEOUT);
 
$MAXLEN  = 1024;
$PORTNO  = 1027;
$TIMEOUT = 5;
 
$sock = IO::Socket::INET->new(Proto => 'udp', PeerPort => $PORTNO, PeerAddr => 'localhost') or die "Creating socket: $!\n";
 
$sock->send("GO") or die "send: $!";
 
while ($sock->recv($msg, $MAXLEN))
{
	print "$msg\n";
} 
die "recv: $!";

Petit problème, à l'exécution j'ai l'erreur suivante coté serveur:

Code :

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

1
2
3
Serveur demarre sur port 1027
Recu GO
send: Cannot determine peer address at ./serveur.pl line 73

J'ai l'impression que la variable $sock n'est pas initialisée à la ligne 73 (dans le send) alors qu'elle l'est ligne 32 (dans le recv). Je pense donc à un problème de portée de variable mais je ne sais pas comment rendre $sock globale, d'autant que "use strict;" m'oblige à les déclarer en my(...).

Merci d'avance pour votre aide.

Cordialement.

**Philou67430** · 24/06/2009, 12h49

$sock me semble avoir la bonne portée.

Edit : commentaire supprimé, je pense que c'était une bêtise.

**Philou67430** · 24/06/2009, 12h54

As-tu essayé 127.0.0.1 à la place de localhost comme PeerAddr dans le client ?

Edit :
Mmmh... ça me semble à nouveau une bêtise...
désolé

**Philou67430** · 24/06/2009, 12h57

Ajoute $ipaddr et $port dans ce print :

Code :

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

print "Recu $newmsg\n";

**Mercenary Developer** · 24/06/2009, 16h29

Re,

Les variables $ipaddr, $port, $sock sont tous égal à quelque chose.
Par contre le send se fait bien la première fois, c'est lors du deuxième passage que j'ai l'erreur.
Lors de ce deuxième passage, je ne rentre pas dans la boucle:

Code :

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

1
2
3
if ( $sc->recv( $newmsg, $MAXLEN ,MSG_DONTWAIT ) )
{ ...
}

Cela influence-t-il $sock ?

Merci de vos réponses, cordialement.

**Philou67430** · 24/06/2009, 16h36

Oui, en fait, ça me semble normal, puisque tu utilises l'option DONTWAIT, donc même s'il n'y a aucun message à lire, on ne rentre pas dans le if, et comme on a position $boucle à un précédemment, on rentre dans la boucle.
Essaye en plaçant le if ( $boucle == 1 ) dans la bloc du if ( $sock->recv( $newmsg, $MAXLEN ,MSG_DONTWAIT ) )

**Mercenary Developer** · 24/06/2009, 16h53

Re,

J'ai mis le MSG_DONTWAIT pour éviter de bloquer sur le recv. En fait mon programme reçoit "GO", à partir de ce moment il doit envoyer le message toutes les secondes jusqu'à ce qu'il reçoive "STOP" en ajoutant dans le if du recv:

Code :

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

1
2
3
4
if ( $newmsg =~ "^STOP+" )
{
	$boucle = 0;
}

Pourquoi et ou mettre un

Code :

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

if ( $boucle == 1 )

dans le if du recv ?

Je ne sais pas ce qu'il "perd" dans $sock entre la première et la seconde itération quand il arrive au send.

Cordialement.

**Mercenary Developer** · 24/06/2009, 17h17

Re,

En fait c'est le recv qui pose problème quand il n'y a rien a recevoir. J'ai modifié mon code comme suis, et la ça marche, mais cela ne m'arrange pas car je ne peut plus envoyer de message au serveur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
#!/usr/bin/perl -w
 
use strict;
use IO::Socket;
 
my($sc, $newmsg, $port, $ipaddr, $arret, $boucle, $x, $y, $dir, $MAXLEN, $PORTNO, $nbBoucle);
 
$arret = 0;
$boucle = 0;
$x = 0;
$y = 0;
$dir = 0;
$MAXLEN = 20;
$PORTNO = 1027;
 
$sc = IO::Socket::INET->new( LocalPort => $PORTNO, Proto => 'udp') or die "socket: $@";
 
print "[serveur.pl] Serveur demarre sur port $PORTNO\n";
 
while ( $arret == 0 )
{
	if ( $boucle == 0 )
	{
		if ( $sc->recv( $newmsg, $MAXLEN, MSG_DONTWAIT ) )
		{
			($port,$ipaddr) = sockaddr_in($sc->peername);
			print "[serveur.pl] ($port) ($ipaddr) Recu $newmsg\n";
			if ( $newmsg =~ "^GO+" )
			{
				print "[serveur.pl] Demarrage boucle\n";
				$boucle = 1;
			}
			if ( $newmsg =~ "^STOP+" )
			{
				print "[serveur.pl] Arret boucle\n";
				$boucle = 0;
				$nbBoucle = 5;
			}
		}
	}
	if ( $boucle == 1 )
	{
		if ( $dir == 0 )
		{
			if ( $x == 100 )
			{
				$y++;
				if ( $y == 100 )
				{
					$dir = 1;
				}
			}
			else
			{
				$x++;
			}
		}
		else
		{
			if ( $x == 0 )
			{
				$y--;
				if ( $y == 0 )
				{
					$dir = 0;
				}
			}
			else
			{
				$x--;
			}
		}
		$sc->send( $ipaddr.";".$x.";".$y."\0\n", 0, $sc->peername );
		sleep ( 1 );
	}
} 
die "recv: $!";

Donc dans ce cas on ne fait qu'un recv, il récupère le "GO", met $boucle à 1 et les send s'enchaine toutes les secondes. Mais je ne fais plus de recv par la suite.

Que peut bien modifier dans $sock le recv si il ne recoit pas de données pour que send ne fonctionne plus ?

Cordialement.

Portée des variables

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager