Pour analyser un log d'installation sur plusieurs machines

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

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:

---

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).

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:

---

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. :-)

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

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

@+