Bonjour tout le monde, je fais ma première séance de perl dans un code qui n'est pas le mien...............

Ce code me permet de générer une page html et j'ai des éléments ($fam) que je dois afficher, mais malheureusement, j'ai un affichage des informations double.........;

Pourrier vous m'aider ??

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
   # Ecrit la légende des familles dont le scénario est affiché
    # -----------------------------------------------------------
    my $patharchi=$path."/".$family."/img";
    my @families = split(/_/,$family);
    my @colors = ("red","blue","green");
    if (-e $patharchi) {
        print "<table id=treeform>\n";
        for my $ref (0 .. @families -1){
            my $fam = $families[$ref];
            my $col = $colors[$ref];
# 	legendes pour la description et l'architecture à ajouter { 
	foreach $fam (@families) { #si j'utilise foreach, j'ai des doublons
 		print "<tr> ";
		print "<td align=\"center\" valign=\"top\">";
		print "<span class=\"h3\"><BIG>&nbsp;$fam&nbsp;</BIG></span>";
		print "<td>";
		print "<!--description-->  <a target=".........."></a>";
		print "</td>";
		print "<td>";
        	print "<!--repésentation graphique-->  <a target="........;"></a>";
        	print "</td>";
        	print "</td>";
		print "</tr>";
	}
            #print ("<td><img src=\"$patharchi/$fam.png\">.</td></tr><br>");
        }
        print("</table>");
	print "<A HREF=\"../pages/acceuil.php\"><IMG SRC=\"../images/menu/home.jpg\" BORDER = \"0\"></A>\n";
    }