Bonjour,

J'essaie de lire dans un fichier texte des donnees qui peuvent etre decimaux et/ou negatifs. Je cherche la bonne ligne commande qui me permettrait d'extraire les valeurs.

Pour exemple, voici le contenu d'un fichier :

RR 34145 1.312
RR 34145
RR 34145 1.312 0.175
RL 32952 1.312 0.175 3.735 -0.299

Pour extraire les valeurs de la ligne commencant par RR, j'ai pense au code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
use strict;
 
my $file = "";
open (FILE, "$file" ) or die "\nCannot open the file\n";
while( my $line = <FILE> )
  {if ($line =~ /RR\s[+-]?\d+(\.d+)?\s[+-]?\d+(\.d+)?\s[+-]?\d+(\.d+)?/)
    {print "$line\n";
    print "RR\t$2\t$3\t$4\n"}
  }
close(FILE);
Malheureusement, ca n'aboutit pas a ce que je souhaite.
Quelqu'un peut il m'aider ou me conseiller ?
Merci.
Djahny.