Oui.
EDIT : histoire d'éviter de faire mon lourd, il te suffit d'utiliser une expression régulière.
Exemple :
my $chaine = "abc def efg hij klm nop qrs tuv xyz";
$chaine =~ s/((\S*?\s){5})(\S*?)\s(.*)/$1$3$4/; |
Explication : le premier groupement, $1, ((\S*?\s){5}) rassemble cinq pâtés de caractères qui ne sont pas des espaces, suivis d'un espace.
$2 on l'oublie, il contient le dernier de ces pâtés trouvé.
$3 contient le pâté précédent le sixième espace à supprimer.
\s c'est l'espace qu'on veut supprimer
$4 c'est tout le reste qui suit, sans distinction.
Message édité par Elmoricq le 07-04-2006 à 11:20:12