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

[boobz]

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

Ah ok, merci.

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");

Effectivement. Mais ça ne marche toujours pas. Maintenant le résultat ressemble à un cat aqaq.txt (vais d'ailleurs changer ce nom de fichier..) et les 5 fichiers slice.*sont toujours vides...

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

ça marche nikel, la sortie me donne les bonnes lignes et il y en a 4 comme prévu. Je me demande maintenant si je ne vais pas écrire un script qui récupère ces numéro de lignes et qui me split le fichier en en tenant compte... ce sera peut-être plus simple que la direction que j'ai prise. Qu'en penses-tu ?

En tout cas, merci mille fois pour ton aide.

[iblis]

Oups en relisant, je vois une faute de frappe, désolé. (il ne faut pas virgule au print)

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

(pour tester tu peux aussi faire des print sur la sortie standard)

[boobz]

Oups en relisant, je vois une faute de frappe, désolé. (il ne faut pas virgule au print)

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

(pour tester tu peux aussi faire des print sur la sortie standard)

Et bin dites donc, il fallait la voir celle-là ! maintenant ça marche comme désiré, merci !

Je vais enfin pouvoir passer à la suite, qui est d'extraire de chacun de ces messages l'information qui m'est nécessaire. (Et donc probablement encore des questions, mais j'ouvrirai un nouveau post pour cela).

Encore merci pour ton aide Iblis !


PS : je me suis réjoui trop vite. En effet, le dernier fichier obtenu est presque vide, il ne contient qu'une ligne vide. C'est pas hyper important, mais comment pourrait-on faire pour ne pas l'avoir ?

PS2 : en regardant de plus près mes fichiers slice$i, je m'aperçois que pour $i>1, le fichier commence par une ligne blanche. Et comme je comptais utiliser le fait que les données importantes commençaient *après* une ligne blanche (mais bien plus bas), ça risque de me poser des problèmes. Comment faire pour les virer ?

[iblis]

Tu peux toujours ignorer des lignes vides (ici des blocs en fait) dans ta boucle de lecture

Code :

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

1
2
chomp $block;
next if $block =~ /^$/;

[boobz]

Salut,

J'ai bien rajouter le code proposé mais cela ne change absolument rien, les fichiers slice* ont exactement la même taille et il y a toujours une ligne blanche au début des fichiers slice$i pour $i>2. Le bloc maintenant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
{
                  local $/ = chr(12);
                  while (my $block = <$infh>) {
                                         chomp;
                                         next if $block =~ /^$/;
                                         $count += 1;
                                         open my $outfh, '>', "slice$count.txt" or die "$!\n";
                                         print $outfh $block;
                                         close $outfh;
                  }
}

Bon ce n'est pas très grave, je vais passer maintenant à la suite.

Encore merci pour ton temps et ta patience Iblis.