Discussion :

[remi_adm]

Bonjour a tous je cherche un script perl pour réalisé un nouveau fichier a chaque fois que l'on rencontre une nouvelle donée dans une colonne définit

par exemple:

fichier1

A 1 3
A 1 4
B 6 9
B 7 8

lancement du script crée deux nouveaux fichiers

fichier 2 fichier3

A 1 3 B 6 9
A 1 4 B 7 8

Un petit coup de main ? merci d'avance =)

[Lolo78]

Bonjour,

je ne comprends pas bien ton exemple. Quelle est la colonne dans laquelle l'appafrition d'une nouvelle donnée doit provoquer l'ouverture d'un nouveau fichier?

Et que contiennent les fichiers 2 et 3? Ta mise en page ne l'indique pas clairement à mes yeux.

[remi_adm]

Donc je vais essayer de mieux l'expliquer, le script doit porter uniquement sur la première colonne: a chaque fois qu'il rencontre une nouvelle donnée celle-ci est enregistrée dans un fichier.

ex fichier de base:

x1 x2 x3
a 1 1
b 1 1
a 2 2
c 1 1
b 3 3

on rencontre trois différentes variables,les lignes liées a ces variables doivent donc être exporté dans un fichier:

Fichier a contient toutes les lignes commençant par a, exemple du contenu du fichier: a 1 1
Fichier b contient toutes les lignes commençant par b exemple du contenu du fichier: b 1 1
Fichier c contient toutes les lignes commençant par c exemple du contenu du fichier : c 1 1

j'espère je suis plus clair

[Lolo78]

Bonjour,

tu peux construire un hachage de descripteurs de fichier (un descripteur par lettre de l'alphabet). Ensuite tu écris dans le descripteur correspondant à la bonne lettre:

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
18
19
20
21
use strict;
use warnings;
 
my %descr;
 
for ('a'..'d') {
    my $name = "lettre_$_";
    open my $FH, ">", $name or die "Ouverture impossible de $name $!";
    $descr{$_} = $FH;
}
while (<DATA>) {
    my $lettre = substr $_, 0, 1;
    print {$descr{$lettre}} $_;
}
 
__DATA__
a 1 1
b 1 1
a 2 2
c 1 1
b 3 3

Cela a créé quatre fichiers :

Code :

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

1
2
3
4
5
6
7
8
9
 
$ls -lrt lettre*
-rw-r--r-- 1 prod dqd   0 2015-01-28 17:19 lettre_d
-rw-r--r-- 1 prod dqd   6 2015-01-28 17:19 lettre_c
-rw-r--r-- 1 prod dqd  11 2015-01-28 17:19 lettre_b
-rw-r--r-- 1 prod dqd  12 2015-01-28 17:19 lettre_a
17:32:51[/exec/applis/prod/ROL]$cat lettre_a
a 1 1
a 2 2

Remplace

Code :

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

1
2
 
for ('a'..'d')

par

Code :

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

1
2
 
for ('a'..'z')

et ça te créera 26 fichiers.

[Lolo78]

Voici deux autres façons de faire la même chose.

1. Toujours avec un hachage de file handles:

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
 
use strict;
use warnings;
 
my %handles;
$handles{$_} = create_fh($_) for ('a'..'z');
while (<>) {
        print { $handles{$1} } $_ if (/^([a-z])/) ;
}
 
sub create_fh {
        my $letter = shift;
        my $file_name = "lettre_$letter.txt";
        open my $FH, ">", $file_name or die "ouverture impossible de $file_name $!";
        return $FH;
}

2. En utilisant une table de distribution, c'est-à-dire un hachage de fonctions anonymes (attention: il s'agit ici de concepts un peu plus avancés, c'est peut-être un peu compliqué si tu débutes en Perl):

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
 
use strict;
use warnings;
 
my %dispatch;
$dispatch{$_} = create_sub($_) for ('a'..'z');
while (<>) {
        $dispatch{$1}->($_) if (/^([a-z])/) ;
}
 
sub create_sub {
        my $letter = shift;
        my $file_name = "lettre_$letter.txt";
        open my $FH, ">", $file_name or die "ouverture impossible de $file_name $!";
        return sub { my $line = shift; print $FH $line; }
}

[remi_adm]

Je n'ai jamais programmé en perl donc merci pour toutes ces propositions, je trouve ça beaucoup plus compliqué que le bash. exemple pour faire la même chose sa me prend une ligne, c'est peut être que je ne suis pas habitué, je vais travaillé dessus en tous cas

Code :

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

1
2
3
4
5
#! /bin/bash
 
log="test.log"
 
awk 'NR>1{print >$1}' $log

Merci a toi encore d'avoir pris le temps !
@+