[langage] Expression régulière et lecture de fichier
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:
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 !
:arf:
