[Perl] Réaction incompréhensible après substitution de chaîne ! URGENT
Réaction incompréhensible après substitution de chaîne ! URGENT [Perl] - Perl - Programmation
Sujets relatifs:
Leave a Replay
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 17-02-2005 à 10:38:42
bonjour à tous, voila je reprend le script d'un stagiaire en Perl. Il s'agit d'un script qui récupère l'@ MAC tapé par l'utilisateur dans un formulaire et qui recherche l'existence de cette @ MAC dans un fichier .txt !
Je dois faire en sorte que le script tolère les séparateurs "espace", ":" et "-" taper par l'utilisateur lorsqu'il rentre l'@ MAC dans le formulaire. Comme les @ MAC sont stocké avec le séparateurs "-" dans le fichier .txt j'utilise simplement la substitution de chaîne avec expression régulière : "$mac =~s/\+|%3A/-/g;"
Cette substitution fonctionne car je vérifie le contenu de $mac mais je constate que le prog réagit de manière incohérente car il ne veut plus exécuter l'instruction après le if de "if ($tabip[$i]=~m/$ip/) {$t++;}" qui se trouve à la ligne 160 tandis que si il n'y a pas de substitution faite alors il l'exécute ce "if" et m'affiche l'@ MAC dans un tableau.
Voici le code du script:
voici un exemple du fichier .txt:
Voila je ne comprend pas la reaction du prog , si quelqu'un a une solution ou meme une explication plz !?!?
Message édité par Gouki19 le 17-02-2005 à 10:58:55