Discussion :

[boobz]

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

[iblis]

Code :

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

1
2
3
4
5
6
7
open my $fh, '<', $filename;
{
    local $/ = chr(12);    
    while (my $block = <$fh>) {
        # ...
    }
}

Modifie localement le séparateur d'enregistrement ($/). Par défaut $/ vaut \n.

[boobz]

Salut et merci pour ta réponse.

Mais je ne l'a comprends pas bien. Quelles sont les modifications à apporter à mon code ?

Encore merci !

[iblis]

L'exemple lit par bloc séparé par des Form Feed (Char 12 en ASCII) au lieu de lire ligne à ligne (c'est à dire par blocs séparés par des Line Feed).

J'ai l'impression que tu veux quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$count = 0;
open my $infh, '<', shift
    or die "$!\n";
{
    local $/ = chr(12);    
    while (my $block = <$infh>) {
        chomp; # si tu veux te débarasser du séparateur
        $count += 1;
        open my $outfh, '>', 'slice'.$count
            or die "$!\n";
        print $outfh, $block;
        close $outfh; 
    }
}

[boobz]

Bonjour,

J'ai essayé le code proposé, mais il ne marche pas, aucun fichier slice.* n'est créé. Voici le code exact :

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
16
 
#!/usr/bin/perl
#
$count = 0;
my $infh = 'aqaq.txt';
open $infh, '<', shift or die("$!\n");
{
                  local $/ = chr(12);
                  while (my $block = <$infh>) {
                                         chomp;
                                         $count += 1;
                                         open my $outfh, '>', 'slice'.$count or die "$!\n";
                                         print $outfh, $block;
                                         close $outfh;
                  }
}

Question : comment puis-je vérifier qu'il y a bien un caractère 12 dans le fichier 'aqaq.txt' ?

Réponse : avec vim sous Linux, se mettre sur le caractère et taper :ascii

Dans mon cas, ça me donne bien le 12.

Question 2 : à quoi sert le shift dans le code puisque plus tard dans le while on lit block par block ?

Merci pour le coup de main, car là je n'y pige plus rien.

[iblis]

1. Le shift remplaçait ton $ARGV[0]

2. Dans open, $infh contient le file handle pas le nom du fichier, tu devrais avoir plutôt

Code :

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

1
2
3
my $filename = 'aqaq.txt';
open my $infh, '<', $filename 
    or die("$!\n");

3. Si tu veux savoir, si ton fichier contient des chr(12), tu peux essayer l'uniligne suivant en ligne de commande (imprime le numéro des lignes qui contiennent un Form Feed)

Code :

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

perl -lne 'print $. if /\f/' aqaq.txt