Discussion :

[k6971]

Bonjour

Je lis un fichier plat séparé par ; . J'en extrais des colonnes qui m'interessent. supposons que j'extrais 5 colonnes et que je ne veux pas de doublons sur ces 5 colonnes. Ma régle c'est que j'ai deux indices A et B c'est toujours l'indice A qui fait foi si ces 5 colonnes sont identiques pour A et B je delete tout ce qui vient de B. Ex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
A	B		
1A	1A      EUR  SIG  MAR
1A	1A_TX  EUR  SIG  MAR

Là je veux deleter la ligne où il ya 1A_TX . Par contre si j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
A	B		
1B	1B        EUR  SIG  MAR
1A	1A_TX   EUR  SIG  MAR

je veux garder la ligne 1A_TX.
Moi je pensais faire un test du style est ce que le champ sur le quel je suis se termine par X .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if($tabDataSA[$GOP_INDICE]!=~"*X")

Sauf que ça ne fait pas du tout ce que je veux.
Qui peut me donner des indications .
Merci

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if($tabDataSA[$GOP_INDICE]!=~"*X")

Sauf que ça ne fait pas du tout ce que je veux.
Qui peut me donner des indications .
Merci

Quoi qu'il en soit du reste, cette ligne est fausse, d'une part bien que cela puisse fonctionner, utiliser une chaîne de caractère comme regex est rarement une bonne idée, d'autre part cette regex est syntaxiquement incorrecte.
Une ligne correcte serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if( $tabDataSA[$GOP_INDICE] !~ m/.*X$/ )

--
Jedaï

[k6971]

Jedai je comprend sje ne suis qu'un tout novice sur perl. Si tu peux me donner des indic je suis preneur sur comment éviter mes doublons.

[Jedai]

Tu peux effectuer une recherche sur le forum, tu trouveras pas mal de sujet sur la suppression de doublons.
Cependant ton énoncé me laisse songeur : en effet un coup tu dis que tu as doublon quand les 5 colonnes sont identiques entre deux enregistrements, mais ensuite tu sembles dire que l'une des colonne est différente et que c'est ça qui te permet de décider laquelle supprimer (mais si les enregistrements sont vraiment des doublons peu importe lequel tu supprimes, n'est-ce pas ?)...

Donne quelques exemples réels (légèrement remaniés si les données sont confidentielles), que l'on voit quel est exactement ton problème.

--
Jedaï

[k6971]

données confientielles

[Jedai]

Ok, dans ce cas pour savoir s'il faut supprimer une ligne (ou de préférence l'éliminer avant de l'enregistrer), il suffit de vérifier si la 4ème colonne est égale à la 3ème plus "_TX" ?
Dans ce cas en supposant que les colonnes sont dans @cols :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

next if $cols[3] eq $cols[2].'_TX';

--
Jedaï