problème commande split

Bonjour à tous,

J'ai un problème avec un split qui ne fait pas comme je voudrais, mais je ne sais pas pourquoi ni comment le résoudre.


Mon fichier ressemble à ça :

tr|A0A0A1P9U9|A0A0A1P9U9_9FUNG
tr|A0A0A1P9U9|A0A0A1P9U9_9FUNG
tr|S2KBZ4|S2KBZ4_MUCC1
tr|S2KBZ4|S2KBZ4_MUCC1
tr|A0A0A1N2W2|A0A0A1N2W2_9FUNG
tr|A0A0A1N2W2|A0A0A1N2W2_9FUNG
tr|A0A0B7NXP7|A0A0B7NXP7_9FUNG
tr|A0A0B7NXP7|A0A0B7NXP7_9FUNG
tr|A0A077WQA7|A0A077WQA7_9FUNG
tr|A0A077WQA7|A0A077WQA7_9FUNG
tr|A0A0C3C2R2|A0A0C3C2R2_9HOMO
tr|A0A0C7C076|A0A0C7C076_9FUNG
tr|A0A0C7C076|A0A0C7C076_9FUNG
tr|A0A0C9LW96|A0A0C9LW96_9FUNG

Et je souhaiterais obtenir toute la partie qui se situe apres le deuxième "|" par exemple A0A0A1P9U9_9FUNG

Pour ce faire j'ai fait la commande :

@tdecoupage2= split ('|', $ligne);
$identifiant=$tdecoupage[2];
print "$identifiant\n";

Or quand je fais ça au lieu de me donner la chaine de caractere que je veux, il me donne le 2eme caractère de la séquence c'est à dire | .


Petite précision qui peut être change quelque chose même si je ne pense pas cette commande est un split d'un autre split et je suis dans un while $ligne.

Voilà merci d'avance pour votre aide.

Benjamin

Bonjour,
Il te faut seulement "échapper" le caractère "|" dans le split.
Dans un split comme dans une regexp | joue le rôle de l'opérateur OU
pour qu'il soit interprété comme caractère | il faut le faire précéder d'un \

Code:

---

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

#!/usr/bin/perl use strict; use warnings; use utf8; while (<DATA>){ print "$_\n"; my @tdecoupage = split ('\|', $_); print "$tdecoupage[2]\n"; } __DATA__ tr|A0A0A1P9U9|A0A0A1P9U9_9FUNG tr|A0A0A1P9U9|A0A0A1P9U9_9FUNG tr|S2KBZ4|S2KBZ4_MUCC1 tr|S2KBZ4|S2KBZ4_MUCC1 tr|A0A0A1N2W2|A0A0A1N2W2_9FUNG tr|A0A0A1N2W2|A0A0A1N2W2_9FUNG tr|A0A0B7NXP7|A0A0B7NXP7_9FUNG tr|A0A0B7NXP7|A0A0B7NXP7_9FUNG tr|A0A077WQA7|A0A077WQA7_9FUNG tr|A0A077WQA7|A0A077WQA7_9FUNG tr|A0A0C3C2R2|A0A0C3C2R2_9HOMO tr|A0A0C7C076|A0A0C7C076_9FUNG tr|A0A0C7C076|A0A0C7C076_9FUNG tr|A0A0C9LW96|A0A0C9LW96_9FUNG

---

Tiens comme c'est ta première visite sur ce forum, pour commencer
Mais il y en a plein
...
:D

[EDIT 05:42] Balises
Au fait dans l'avenir met ton code entre balise CODE icône#
Sinon c'est illisible...

Bonjour,

J'ajoute que split utilise en principe un motif d'expression régulière plutôt qu'une chaîne de caractère comme premier argument. C'est d'ailleurs pour cette raison qu'il faut un caractère d'échappement avant le "pipe" qui est un métacaractère dans une regex. Autant rendre explicite dans la syntaxe le fait que c'est une regex.

Il est donc préférable d'écrire:

Code:

---

1 2 3 4

my @tdecoupage2 = split /\|/, $ligne; my $identifiant = $tdecoupage[2]; print "$identifiant\n";

---

Je ne savais pas que la syntaxe split('\|') était possible.
Le résultat est-il le même que split(/\|/) ou faut-il en privilégier une ?

Je dirais qu'il faut privilégier l'expression régulière (donc //), car l'usage de "" comporte un cas particulier avec celui de " ".