Discussion :

[JeanChristopheMarius]

Bonjour,

J'ai un log sur deux colonnes qui a cette strucuture.

Shirt : Green
Shirt : Red
Shirt : Bleu
Shirt : Black
Shoe : Bleu
Shoe : Black
Sock : Grey
Sock : Green
Sock : Black
Tie : Green
Tie : Black

Je voudrais faire avec un script sous Linux :

1) Affichage sous forme de tableau.

1.1 ) Classement des articles par couleurs :

Green : Shirt ; Sock ; Tie
Red : Shirt
Bleu : Shirt ; Shoe
Black : Shirt ; Shoe ; Sock ; Tie
Grey : Sock

1.2 ) Classement des couleurs par articles :
: : :
Shirt : Green ; Red ; Bleu ; Black
Shoe : Bleu ; Black
Sock : Grey ; Green ; Black
Tie : Green ; Black


2) Inverse : Affichage sous forme de tableau de ce qui manque

2.1 ) Les articles qui manquent par couleurs :

Green : Shoe
Red : Shoe ; Sock ; Tie
Bleu : Sock ; Tie
Black :
Grey : Shirt ; Shoe ; Tie

2.2 ) Les couleurs qui manquent par articles :

Shirt :
Shoe : Green ; Red
Sock : Red
Tie : Red ; Bleu

L'objectif est de lister par article et par couleur ce qu'il y a et ce qui manque...

Pour le moment je le fais avec SQLites.
Je cherche quelque chose de plus léger.

Merci pour votre aide.


Jean-Christophe

[Philou67430]

Tu as des bases de perl ? Tu souhaites l'écrire toi même (tu attends des pistes pour écrire le script toi-même) ou juste avoir un script et le comprendre pour pouvoir le maintenir par la suite ?

Ce genre de traitement nécessite l'usage de hash et array. A priori, j'utiliserai un hash de array pour lire le tableau ; ce hash servirait de base pour tout le reste du script :

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
 
 
my ($log) = @ARGV;
open my $LOG, "<", $log or die "Can't open $log for reading: $!";
my %article;
while (defined(my $line = <$LOG>)) {
  chomp $line;
  my ($article, $couleur) = split /\s*:\s*/, $_, 2;
  $article{$article} = [] if !exists $article{$article}; # ligne optionnelle grâce à l'autovivification
  push @{$article{$article}}, $couleur;
}
my %couleur;
foreach my $article (keys %article) {
  foreach my $couleur (@{$article{$article}}) {
    $couleur{$couleur} = [] if !exists $couleur{$couleur}; # ligne optionnelle grâce à l'autovivification
    push @{$couleur{$couleur}}, $article;
  }
}
 
# Avec %article et %couleur, on peut facilement réaliser les traitements 1.1) et 1.2)
# Pour les traitements 2.*) c'est guère plus compliqué (l'usage de grep sera utile

(je n'ai pas testé cet embryon de script).

[JeanMi3000]

en quel langage ?
J'ai vu que tu as aussi posté sur GNU/linux.

Et qu'as tu fait ? As tu commencé à coder quelque chose ?

Comme je suis de bonne humeur, je t'aide pour le point 1), en langage 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
17
18
19
20
21
22
23
24
25
26
27
28
29
use strict;
use warnings;
use Data::Dumper;
 
my %hashArticles = ();
my %hashCouleurs = ();
my $File = '.\listeArticles.csv';
open my $FILE, "<", $File or die "Ouverture impossible de $File $!";
my($article, $couleur);
while (<$FILE>) {
	chomp;
	($article, $couleur) = split( ':', $_ );
	push(@{$hashArticles{$article}},$couleur);
	push(@{$hashCouleurs{$couleur}},$article);
}
 
#print "Articles :: \n".Dumper(\%hashArticles);
#print "Couleurs :: \n".Dumper(\%hashCouleurs);
 
foreach $article (sort(keys(%hashArticles))){
	my $list = join( " ; ", @{$hashArticles{$article}});
	print "$article : $list\n";
}
print "\n\n";
foreach $couleur (sort(keys(%hashCouleurs))){
	my $list = join( " ; ", @{$hashCouleurs{$couleur}});
	print "$couleur : $list\n";
}
close($FILE);

Pour le reste, je te laisse chercher. :-)

[JeanChristopheMarius]

Pour tout t'avouer le perl j'en ai fait il y a.... Oh là là sinon plus... Et Alzheimer et passé par là !
J'ai scripté des trucs de ce genre il y a une sacré paye sous awk. Mais voilà...
Dans mon quotidien je ne fais jamais de scripting perl...

Pour le moment je passe par SQL.

Je vais étudier tes pistes !

Merci !

Jean-Christophe

[JeanChristopheMarius]

Tu as des bases de perl ? :: Lointaine....
Je scripte (bidouille) essentiellement sous bash et power-shell.

@+