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"; }
Partager