Bonjour,
voila j'ai qq problemes pour recupérer des données d'un fichier avec perl,
le fichier source comprte 180 paragraphes similair (a part les chiffres bien sur :) ) à celui la :

| ELEMENT : 1 | HEXAEDRE | S-D : 3 | NOMBRE DE MOTS ASSOCIES : 27

NOMBRE DE NOEUDS : 8 : 1 4 6 2 55 56
57 58
REFERENCE DES FACES : 0 5 1 0 0 0

REFERENCE DES ARETES : 1 0 0 5 1 1
0 5 1 0 0 5
REFERENCE DES SOMMETS : 1 1 0 5 1 1


bon je dois recuperer le 3 et ca ne pose pas de probleme mais je veux recuperer les 8 elts du noeud c'est à dire 1 , 4 , 6 , 2 , 55 , 56 , 57 , 58 .
pour les six premiers c'est bon mais c'est pour le 57 et 58 qui posent probleme puisqu'il y a des espaces avant; bon CCM n'as pris en compte les espaces!

while( defined( $line = <FILE> ) )
{
@words = split( /\W+/, $line );
foreach $word (@words)
{
$word =~ tr/A-Z/a-z/;
if( $word =~ m/noeuds/ )
{
print "@words[5..10]\n";
}
}
}
merci a tous pour vitre aide