salut
j'ai un fichier texte que je dois filtrer. pour supprimer les mots ayant 3 caractères j'utilise l'expression régulière
 while($line =~ m/ [0-9a-zA-Z_][0-9a-zA-Z_][0-9a-zA-Z_] /) {$line=~ s/ [0-9a-zA-Z_][0-9a-zA-Z_][0-9a-zA-Z_]/ / ;}
 
ca marche sauf pour les fins de lignes puisque j'ai pas d'espace à la fin.
meme en utilisant l'expression
while($line =~ m/ [0-9a-zA-Z_][0-9a-zA-Z_][0-9a-zA-Z_]\n /) {$line=~ s/ [0-9a-zA-Z_][0-9a-zA-Z_][0-9a-zA-Z_]/ / ;}  
ca donne des erreurs

A la base, ce que vous voulez faire, c'est s/\b\w{3}\b//g;
A vous de traiter ensuite si nécessaire les blancs multiples générés par un effacement de mot.
A+,

votre code marche bien mieux que le mien.
encore une petite question    
je dois filtrer mon texte et pour cela j'utilise une liste de mots à supprimer et j'écris le code suivant:
 
if( $line =~ m/la | les | des | eu | mon | mes | euh |euh | ou / ) { $line =~ s/la | les | des | eu | mon | mes | euh |euh |ou / / ;}
 
vous avez peut etre une autre suggestion à me proposer ?
 
merci

Je procéderais ainsi:
 
1) mettre mes mots a virer comme une regexp
2) transformer une ligne en liste de mots (split), la filtrer avec grep pour en retirer les mots à virer et réassembler les mots en ligne (join)
 

#!/usr/bin/perl
use strict;
use warnings;
 
my $line = 'la petite fleur des Alpes';
my $remove = '('.join('|', qw(la les des eu mon mes euh ou)).')';
 
my $re = qr{$remove}o;
$line = join('', grep(!/^$re$/, split /\b/, $line));
$line =~ s /( )+/ /g;
print $line;

 
Si on est sur que l'on n'a que des mots séparés par des blancs (pas de tab ou autres séparateurs unicode) on peut faire plus simple (mais ça bouffe les \n de fin de phrase, qu'on peut rajouter en fin de traitement si nécessaire):

#!/usr/bin/perl
use strict;
use warnings;
 
my $line = 'la petite fleur des Alpes';
my $remove = '('.join('|', qw(la les des eu mon mes euh ou)).')';
 
my $re = qr{$remove}o;
$line = join(' ', grep(!/^$re$/, split ' ', $line));
print $line;

 
A+,