Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2226 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  [Perl] Réaction incompréhensible après substitution de chaîne ! URGENT

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Perl] Réaction incompréhensible après substitution de chaîne ! URGENT

n°984593
Gouki19
Posté le 17-02-2005 à 10:38:42  profilanswer
 

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:

Code :
  1. #!C:\perl\bin\perl.exe -w
  2. #on indique ici le chemin vers l'interpréteur Perl
  5. print "Content-type: text/html\n\n";   #indique qu'on va utiliser des balises HTML en vue d'executer le script à l'aide d'un navigateur web
  7. print "<HTML>";
  9. #use strict;                   # oblige à déclarer toutes les variables utilisées; contraignant mais plus propre
  10. use forme;                    # module que j'ai écrit dédié à la mise en forme de l'interface HM (interface web en l'occurence)
  11. use URI::Escape;              # module intégré à Perl qui permet d'échapper les caractères spéciaux
  14. ############################# déclaration des variables ####################################################
  16. my $tiret;
  18. my $l;                                                                         # variable de parcours de fichier TXT
  19. my $i;                                                                         # variable de boucle
  20. my $in;                                                                        # données passées par le formulaire
  21. my $nom;                                                                       # variable intermédiaire
  22. my ($mac,$ip);                                                                 # @mac et @ip fourni par l'utilisateur ds le formulaire recherche.pl
  23. my $ipv;                                                                       # copie de $ip avant échappement des points de $ip
  24. my ($t,$s);                                                                    # variables de controle pour la recherche de résultats ds ARP.txt
  26. my @ligne;                                                                     # tableau dont chaque ligne correspond à une ligne du fichier ARP.txt
  27. my (@hop,@champs);                                                             # tableaux intermédiaires
  28. my (@tabcompt,@tabmac,@tabip,@tabhost,@tabport,@tabswit,@tabvlan,@tabind);     # tableaux contenant respectivement le compteur pour décler les anciennes mac,
  29.                                                                                 # @mac,@ip,hostname,nom du port,switch, et vlan (mais était-il nécessaire de le préciser? ^^)
  31. ############################# affiche l'en tête de la page web (titre, logo) ################################
  34. forme::haut();
  36. ############################# ouverture des fichiers ARP successifs! #########################
  38. $c=0;
  39. open(FIC,"<../sites.txt" ) || die "Problème à l\'ouverture : $!";
  40. while (defined ($l=<FIC> ))
  41. {
  42. chomp $l;
  43. $site[$c]=$l;
  44. $c++;
  45. }
  46. close FIC;
  49. ############################# ouverture des fichiers ARP successifs! #########################
  51. $c=0;
  52. open(FIC,"<../sites.txt" ) || die "Problème à l\'ouverture : $!";
  53. while (defined ($l=<FIC> ))
  54. {
  55. chomp $l;
  56. $site[$c]=$l;
  57. $c++;
  58. }
  59. close FIC;
  62. ############################# récupération des informations du formulaire : @mac/@ip ################################
  64. read(STDIN, $in, $ENV{CONTENT_LENGTH});    # ON RECUPERE LES INFORMATIONS DU FORMULAIRE
  65. @champs = split(/&/,$in);
  66. print "$in <br>";
  67. ($nom, $mac) = split(/=/,$champs[0]);
  68. print "nom: $nom,   mac: $mac<br>";
  70. $mac =~s/\+/-/g; # il y a bien un anti-slash juste avt le "+" meme si il  ne se voit pas ici
  72. #chomp($mac);
  73. print "mac après subtitution: $mac<br>";
  74. @hop=split(//,$mac);
  77. ($nom, $ip) = split(/=/,$champs[1]);
  79. $mac=lc($mac);        # on met la mac fournie par l'utilisateur en minuscule pour coller avec notre BDD ARP.txt
  80. print "\@MAC minuscule: $mac et ip= $ip<br>";
  81. $ipv=$ip;
  82. @hop=split(/\./,$ip);   # petit tour de passe passe pour avoir l'ip sous une bonne forme
  83. $ip=join('\.',@hop);    # (il faut échapper les points pour que ca fonctionne : 126.43 devient 126\.43 par exemple)
  85. ############################# ouverture du fichier ARP.txt et extraction des données ds des tableaux ################################
  87. $i=0;
  89. for ($c=0;$c<@site-1;$c++)
  90. {
  91. open(FIC,"<../ARP-".$site[$c].".txt" ) || die "Problème à l\'ouverture : $!";
  92. while (defined ($l=<FIC> ))
  93. {
  94. chomp $l;
  95. $ligne[$i]=$l;
  96. @hop=split(/:/,$l);
  97. if (defined($hop[0])) { $tabcompt[$i]=$hop[0]; } else { $tabcompt[$i]=""; }
  98. if (defined($hop[1])) { $tabind[$i]=$hop[1]; } else { $tabind[$i]=""; }
  99. if (defined($hop[2])) { $tabmac[$i]=$hop[2]; } else { $tabmac[$i]=""; }
  100. if (defined($hop[3])) { $tabip[$i]=$hop[3]; } else { $tabip[$i]=""; }
  101. if (defined($hop[4])) { $tabhost[$i]=$hop[4]; } else { $tabhost[$i]=""; }
  102. if (defined($hop[5])) { $tabbios[$i]=$hop[5]; } else { $tabbios[$i]=""; }
  103. if (defined($hop[6])) { $tabname[$i]=$hop[6]; } else { $tabname[$i]=""; }
  104. if (defined($hop[7])) { $tabport[$i]=$hop[7]; } else { $tabport[$i]=""; }
  105. if (defined($hop[8])) { $tabswit[$i]=$hop[8]; } else { $tabswit[$i]=""; }
  106. if (defined($hop[9])) { $tabvlan[$i]=$hop[9]; } else { $tabvlan[$i]=""; }
  107. $tabsite[$i]=$site[$c];
  109. $i++;
  110. }
  111. close FIC || die "Problème à la fermeture : $!";
  113. }
  116. ############################# affichage des résultats trouvés ################################
  118. if (-d "../Recherche" )
  119. {}
  120. else
  121. {mkdir("../Recherche","077" );}
  124. open(FIC,">../Recherche/mac ".$mac." ip ".$ipv.".txt" ) || die "Problème à l\'ouverture : $!";
  126. print "<br> ";
  127. print "mac : $mac<br>";
  128. print "<CENTER><font size=3> résultat de la recherche pour \@mac: ".$mac." et \@ip: ".$ipv."<br><br><br></font></CENTER>";
  129. print (FIC "résultat de la recherche pour \@mac: ".$mac." et \@ip: ".$ipv."\n \n" );
  131. print "<font size=3><center> <a href='../Networks Inventory/Recherche/mac ".$mac." ip ".$ipv.".txt'> Exporter le résultat</a><br><br> </center><br>";
  133. print "<table border=1 align='center' cellpadding=3>";
  134. print "<tr>";
  135. print "<td><font size=2><center> site </td></font></center>";
  136. print "<td><font size=2><center> \@mac </td></font></center>";
  137. print "<td><font size=2><center> \@ip </td></font></center>";
  138. print "<td><font size=2><center> hostname </td></font></center>";
  139. print "<td><font size=2><center> NBname </td></font></center>";
  140. print "<td><font size=2><center> Username </td></font></center>";
  141. print "<td><font size=2><center> port </td></font></center>";
  142. print "<td><font size=2><center> switch </td></font></center>";
  143. print "<td><font size=2><center> vlan </td></font></center>";
  144. print "</tr>";
  146. for ($i=0;$i<@ligne;$i++)
  147. {
  148.       $s=0;
  149.       $t=0;
  150.       if (defined($mac))
  151.       {
  152.       $s++;
  153.       print "tabmac[$i] : $tabmac[$i], mac: $mac<br>";
  154.       if ($tabmac[$i]=~m/$mac/) {$t++;if ($tabmac[$i] cmp $mac){print "sont différents";}print"mac trouvé avec \$t= $t , \$i= $i et \$s= $s<br>";}
  155.       }
  156.       if (defined($ip))
  157.       {
  158.       $s++;
  159.       print "tabip[$i] : $tabip[$i], ip: $ip<br>";
  160.       if ($tabip[$i]=~m/$ip/) {$t++;}
  161.       }
  162.       print "avt le if \$s = $s et \$t = $t<br>";
  163.       if ($s==$t)
  164.       {
  165.       print "apres le if \$s = $s et \$t = $t<br>";
  166.       print "<tr>";
  167.       print "<td><font size=2>".$tabsite[$i]."</td></font>";
  168.       print "<td><font size=2>".$tabmac[$i]."</td></font>";
  169.       print "<td><font size=2>".$tabip[$i]."</td></font>";
  170.       print "<td><font size=2>".$tabhost[$i]."</td></font>";
  171.       print "<td><font size=2>".$tabbios[$i]."</td></font>";
  172.       print "<td><font size=2>".$tabname[$i]."</td></font>";
  173.       print "<td><font size=2>".$tabport[$i]."</td></font>";
  174.       print "<td><font size=2>".$tabswit[$i]."</td></font>";
  175.       print "<td><font size=2>".$tabvlan[$i]."</td></font>";
  176.       print "</tr>";
  177.       print (FIC $tabsite[$i]."\t".$tabmac[$i]."\t".$tabip[$i]."\t".$tabhost[$i]."\t".$tabbios[$i]."\t".$tabname[$i]."\t".$tabport[$i]."\t".$tabswit[$i]."\t".$tabvlan[$i]."\n" );
  178.       }
  180. }
  183. print "</table>";
  184. close FIC;
  185. forme::bas();
  186. print "</HTML>";


 
voici un exemple du fichier .txt:
 

Code :
  1. 0:1:00-30-f1-7d-97-20:192.168.201.101::::::
  2. 0:1:00-20-e0-6f-cb-e1:::::mod. 1, port 1:OmniStack 6124 n°1:Vlan 1
  3. 0:1:00-01-f4-d6-21-13:10.40.190.1::::::


 
Voila je ne comprend pas la reaction du prog   :fou: , si quelqu'un a une solution ou meme une explication plz !?!?
 


Message édité par Gouki19 le 17-02-2005 à 10:58:55
mood
Publicité
Posté le 17-02-2005 à 10:38:42  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  [Perl] Réaction incompréhensible après substitution de chaîne ! URGENT

 

Sujets relatifs
problème fichier en PERL[Perl] Création d'un top 10
[perl] Comment faire un cd -Remplacer les espaces d'une chaine
[Perl] Probleme de fork & serveur socket[PERL] Probleme avec LWP et UserAgent dans PurePerl
inversion de liste chainecomment changer le caractère -> ' <- dans une chaine
probleme d'affichage urgent svpFont / GlyphVector : étirer une chaîne dans un rectangle
Plus de sujets relatifs à : [Perl] Réaction incompréhensible après substitution de chaîne ! URGENT

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.103 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)