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 !