Discussion :

[BARBIER]

salut,

je cherche à récupérer les données d'un fichier texte avec 3 colonnes :

name | start | stop
---------+---------+---------
thrL | 190 | 255
thrA | 337 | 2799
thrB | 2801 | 3733
thrC | 3734 | 5020
b0005 | 5234 | 5530

Les lignes en plus des données recherchées contiennent des espaces et sont séparées par "|".

J'essaie donc de virer les espaces et les "|" mais en vain.

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
 
#! /usr/bin/perl
use strict; use warnings;
 
# Pour un fichier txt
# Ouverture du fichier
open(DONNEE,"<Exemple.txt") or die "Ouverture impossible du fichier";
 
# On passe les 2 premières lignes inutiles
<DONNEE>;
<DONNEE>;
 
 while(<DONNEE>) {
 my @tab = split "|";
 @tab = map(s/ //g, @tab);
 
 #print "$tab[0]\n";
}
 
close DONNEE;

Avec le print, j'obtiens en ligne de commande :
1
1
1
1
1
Donc, je ne sais pas trop comment faire !

[ma2th]

Bonjour,

et en utilisant seulement une regex de la forme

Code :

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

my @tab = <DONNEE>=~/([^ \|]+)/ig;

ca marche?

Attention code non testé

Matthieu

[BARBIER]

J'ai modifié mon code en me basant sur ta regexp :

Code :

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

1
2
3
4
5
 
while(<DONNEE>) {
    my @tab = $_=~/([^ \|]+)/ig;
    print "$tab[0]\n";
}

Et j'obtiens bien :
thrL
thrA
thrB
thrC
b0005

Merci beaucoup.

[ma2th]

De rien !
et en plus tu as les autres valeurs pour chaque ligne dans $tab[1] et $tab[2], si tu en as besoin!

A la prochaine...