Discussion :

[pontarose]

Bonjour,

J'ai un fichier de ce type

Code :

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

1
2
3
4
 
|aa|id:34|  |alala    
|bb|id:67|  |lulu      
|kk|id:53|  |saraj

je veux obtenir

Code :

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

1
2
3
4
 
aa alala
bb lulu
kk saraj

Dans mon fichier après le champ 4, suivant la ligne j'ai des espaces et tabulations. Après lancement de mon script je conserve ces espaces et tabulations, or je veux juste le champs 1 ($nom) et champ 4 ($categorie) rien de plus après le champ4!



Voiçi mon code

Code :

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

1
2
3
4
5
6
 
while (my $ligne =<FILE>){
      chomp $ligne;
      my ($nom,$id,$info,$categorie) = split /\|/ ,$ligne;
      print "$nom\t$categorie\n";
}

[pontarose]

Désolé,

je viens de trouver ceci pour supprimer les espaces et tabulations en fin de ligne

Code :

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

1
2
 
$ligne =~ s/[ \t]+$//g;

[pontarose]

Désolé,

je viens de trouver ceci pour supprimer les espaces et tabulations en fin de ligne

Code :

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

1
2
 
$ligne =~ s/[ \t]+$//g;

[Lolo78]

Tu peux aussi faire cela:

Code :

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

1
2
3
4
5
6
while (my $ligne =<FILE>){
      chomp $ligne;
      my ($nom, $categorie) = (split /\|/ ,$ligne)[0,3];
      $categorie =~ s/\s//g;
      print "$nom\t$categorie\n";
}

\s est une classe de caractère qui couvre toutes sortes d'espace, y compris " " et "\t". Et même le \n, si bien que le chomp est inutile.