Bonjour,

J'ai un gros fichier qui vient de l'exportation de courriel de Lotus Notes. Celui-ci me permet de mettre un code ascii en fin de chaque message, par défaut le code 12. J'aimerai maintenant découper de fichier à la suite de ce code et le mettre dans un nouveau fichier. Voici ce que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
my $chr = chr(12);
 
my $prefix = 'slice';
$count = 0;
 
open (FILE, $ARGV[0]);
while (<FILE>) {
        if (/$chr/) {
                $count++;
                open (OUTPUT,">$prefix.$count");
                print OUTPUT $`;
                close OUTPUT;
        }
}
J'obtiens bien mes fichiers slice mais ils sont vides. Pourtant je ne copie que ce qui vient avant le $chr..

Votre aide serait la bienvenue.

Merci