expressions regulieres en perl [Résolu]

[hajarita]

Bonjour,

je veux parse un fichier csv ou les champs sont separer par \t avec les expressions regulieres, mais j'ai un probleme avec un champs.

Voila un exemple de ligne que jèai dans mon fichier:


AAGASWIQFDEPLLVMDLDSHK 3 AAGASWIQFDEPLLVM[Oxidation (M)]DLDSHK 0 0

AAFDEAEK 2 0 0 0

je parse comme suite:

Code :

1
2
3
4
5
6
7
8
9
10
11
 
 
while (<F>){
		if ($_ =~/^(\w+)\t(\d+)\t(\w+)\t(\d+)\t*/){
		$sequence = "$1";
		$charge = "$2";
		$modification = "$3";
 
		print OUT "$sequence\t$charge\t$modification\n";
	}
}

Mon probleme c'est que j'arrive pas à recupere jute le champs modification, car ce champs parfois j'ai un truc comme cela :
AAGASWIQFDEPLLVM[Oxidation (M)]DLDS
parfois
AAGASWIQFDEPLLVM
et parfois j'ai rien

[Gardyen]

ce n'est pas plus simple d'utiliser split ?

Code :

1
2
3
4
5
while (<IN>){
	chomp;
	my ($sequence, $charge, $modification) = split /\t/;
	print "$sequence\t$charge\t$modification\n";
}

avec juste un test sur l'une des valeurs si besoin est

[elvivo]

Sinon pour repondre a la question initiale, ta regex matche le 3e champ par \t(\w+)\t, or dans ton example, AAGASWIQFDEPLLVM[Oxidation (M)]DLDSHK ne contient pas que des \w. Il y a les [] et les () qui empeche la regex de fonctionner.

Mais je suis d'accord avec Gardyen. Un split sera plus simple si tu es certain que les champs ne peuvent pas contenir le separateur.

[hajarita]

Oui C plus simple!!!

Merci