Re,

j'ai essayé de faire ce que tu m'as dis , mais on exécutant il me sort des messages d'erreurs , et il crée pas le fichier resultat;

extract.pl:
#!/usr/bin/perl

use strict;use warnings;

open F_LIRE,"D:\Shared\Perl\F0006741.dc"
or die "E/S : $!\n";

open F_ECRIRE,">> D:\Shared\Perl\resultat"
or die "E/S : $!\n";

while(<F_LIRE>){
print F_ECRIRE if /^filename=/.../^\s*$/;
}

close F_LIRE;
close F_ECRIRE;
__END__

et voila le message d'erreur qui m'affiche :
D:\Shared\Perl>perl extract.pl
Unrecognized escape \S passed through at extract.pl line 5.
Unrecognized escape \P passed through at extract.pl line 5.
Unrecognized escape \F passed through at extract.pl line 5.
Unrecognized escape \S passed through at extract.pl line 8.
Unrecognized escape \P passed through at extract.pl line 8.
E/S : No such file or directory
D:\Shared\Perl>

es ce qu'on peut mettre le fichier d'entrée comme variable ?

genre : perl extract.pl mon_fichier ?

Merci encore une fois,