Bonjour,

J'ouvre un fichier et pour chaque ligne de ce fichier, je remplace une donne figé par la valeur d'un autre. Ma question est : je veux traiter toute les lignes sauf la premiere.

Le script ci-dessous traite toutes les lignes et ça fonctionne assez bien.

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
 
#===================================================================================
# traitement des lignes xml
#-----------------------------------
open(FicEntree,"$NomFicCsv") || die "Impossible de d'ouvrir $NomFicCsv";
while (<FicEntree>)
    {
    @TableauCsv = split (/;/ ,$_ );
    #printf "====> @TableauCsv\n";
    chomp ($TableauCsv[$#TableauCsv]);
	@TableauLigneXml2=@TableauLigneXml;
	foreach $LigneXml  (@TableauLigneXml2)
	{
		$LigneXml=~ s;xxTOTOxx;$TableauCsv[0];g;
		$LigneXml=~ s;xxTATAxx;$TableauCsv[4];g;
 
    		print $LigneXml ;
	}
    }
close(FicEntree);