Yop

Je voudrai savoir pourquoi dans le code que j'vais vous copier le print "Pseudonyme trop long ou incorrect\n" ne s'affiche pas

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
 
# si le fichier accés n'existe pas on demande quelques renseignements et on le créer
 if (!-e "users/users.list2") {
    print "\nLe fichier utilisateurs n'existe pas, le service ne pouvant démarrer sans un accés défini
	\rnous allons vous demandez de saisir quelques renseignements sur vous
	\n\n";
 
        GET_NICK:
	print "-> Entrez votre pseudonyme\n";
	chomp (my $nick = <STDIN>);
	print "Pseudonyme trop long ou incorrect\n" && goto GET_NICK if ($nick !~ /^\w+$/ || length($nick)>32);
 
	GET_HOST:
	print "\n-> Entrez votre masque\n";
	print "Exemple: $nick*!*@*\n";
        chomp (my $host = <STDIN>);
	goto GET_HOST if ($host !~ /^.*\!.*\@.*$/);
 
	GET_PASS:
	print "\n-> Entrez votre mot de passe\n";
	chomp (my $pass = <STDIN>);
	goto GET_PASS if (length($pass)<5);
 
	open FILE, ">> users/users.list2" or die "Impossible de créer le fichier utilisateurs";
	print FILE "###############################\n# users.list\n###############################\n\n";
	print FILE "$nick ".time." $pass $host 3 0\n";
	close FILE;
	print "\n*** Votre accés a été crée avec les champs suivants:
	\rPseudonyme: $nick
	\rMasque: $host
	\rMot de passe: $pass
	\n";
}