[Perl] Trie par nombre d'occurence a partir d'éléments présent dans une variable

Bonjour,

Quel sujet bien compliqué n'est ce pas ?
Laissez moi vous expliquer clairement ce que je n'arrive pas a programmer.


Mon script doit lire un fichier acces.log qui se presente sous cette forme simplifié
(c'est pas dur...je l'accorde...pas de souci sur ce point)

xxxxxxxxxxxxx.com cdfrzczfvretyhryh
www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
www.zzzzz.com fcoàfjozrifjzopr
lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
lllllllllllllllllllll.com mqaazsc


Ensuite: (attention ça se corse mais grave !)

A partir des éléments connu dans un tableau précedent $table[0] :

xxxxxxxxx
llllllllllllllllll
zzzzzzzzzz


Celui-ci doit trier les lignes de ce log maniere décroissante (suivant le nombre d'occurence présente dans ce access.log)

De tel sorte que si par exemple on a 3 fois llll 2 fois xxxx, 1 fois zzzzzz et le reste les élèment non présent dans le tableau $table[0]: on est

lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
lllllllllllllllllllll.com dedefdzfczerfzfzfr
lllllllllllllllllllll.com mqaazsc
xxxxxxxxxxxxx.com cdfrzczfvretyhryh
xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
zzzzz.com fcoàfjozrifjzopr
nonpresent dans la table $table[0].com czefvrepv,egrgth
nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm


Je demande l'aide à quelq'un qui saurais m'aider, je suis pas le genre de mec a demander de l'aide pour un rien, j'avoue que c'est très important pour moi et que je suis HS quant aux compétences que ca demande...

Merci d'avance,

Utilises la fonction sort sur ton tableau.

Merci pour cette réponse.

Je savais que sort allais devoir etre utilisé, ce que je ne sais pas faire c'est trier en fonction de mon tableau $table[0] qui contien les elements a recherche dans mon fichiers access.log puis comment trier ces élèment par nombres d'occurence.

sort oui... mais apres ? comment ?

Il faut que tu nous donnes un peu de ton code. Difficile de t'aider sur du virtuel ;)

ok,

ca c'est mon code quis lis mon fichier reference qui va servir de base pour chercher mes occurences dans mon fichiers access.log:

les infos de reference sont dans @table[0]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

@lignes_vhost = (""); open(FILE, "</etc/apache2/vhost.conf"); while(<FILE>){ push(@lignes_vhost,$_); } close(FILE);   for(@lignes_vhost){   @test = split(/:/, $_); print "avant les : @test[0]\n"; print "apres les : @test[1]\n"; }

---

je doit continuer mon script donc en triant le nombre d'occurence d'élèment (en décroissant) de mon fichier log en me basant sur le contenu de ce tableau.

Pourriez vous faire un effort la prochaine fois de corriger les fautes d'orthographes. De plus, lorsque vous collez votre code, veuillez utiliser les balises codes (sélectionner votre code et cliquer sur #).

Merci

Voici un exemple qui vous mettra sur la bonne voie.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl use strict; use warnings;   my @lignes_vhost = ( 'xxxxxxxxxxxxx.com cdfrzczfvretyhryh', 'www.lllllllllllllllllllll.com dedefdzfczerfzfzfr', 'www.zzzzz.com fcoàfjozrifjzopr', 'lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh', 'www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh', 'lllllllllllllllllllll.com mqaazsc' );   foreach ( sort { ( split ':', $a )[0] cmp ( split ' ', $b )[0] } @lignes_vhost ) { print $_,"\n"; my @test = split( / /, $_ ); print "avant les : $test[0]\n"; print "apres les : $test[1]\n"; }

---

Résultat :

Citation:

---

lllllllllllllllllllll.com mqaazsc
avant les : lllllllllllllllllllll.com
apres les : mqaazsc
lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
avant les : lllllllllllllllllllll.com
apres les : njnjnjnjnjijklpmvretyhryh
www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
avant les : www.lllllllllllllllllllll.com
apres les : dedefdzfczerfzfzfr
www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
avant les : www.xxxxxxxxxxxxx.com
apres les : aaaadfdcfkbhbkuljnl,pmyhryh
www.zzzzz.com fcoàfjozrifjzopr
avant les : www.zzzzz.com
apres les : fcoàfjozrifjzopr
xxxxxxxxxxxxx.com cdfrzczfvretyhryh
avant les : xxxxxxxxxxxxx.com
apres les : cdfrzczfvretyhryh

---

Merci pour votre réponse et désolé pour les fautes d'orthographes et de mise en forme.

Je ne comprends pas le debut de votre code.
En effet, le code que je vous ai donné lis un fichier de configuration (vhost.conf) qui se compose ainsi: vhost:path-log-du-vhost afin d'isoler la partie de réference (partie a gauche des :) qui me servira par la suite a trier.

Ce fichier de conf est amené a évoluer (ajout de vhost...), pourquoi mettre les données de celui-ci en dur ?

Code:

---

1 2 3 4 5 6 7 8 9

my @lignes_vhost = ( 'xxxxxxxxxxxxx.com cdfrzczfvretyhryh', 'www.lllllllllllllllllllll.com dedefdzfczerfzfzfr', 'www.zzzzz.com fcoàfjozrifjzopr', 'lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh', 'www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh', 'lllllllllllllllllllll.com mqaazsc' );

---

et pas ce servire de la variable $table[0] ?

Merci en tous cas de votre aide.

N'ayant pas de fichier de configuration, j'ai créé un tableau en dur afin de faire un script d'exemple. Le but n'est pas que vous copiez le code au mot prêt, mais il vous donne juste une idée de la façon dont on peut s'y prendre. A vous de vous en inspirer pour réaliser le votre et nous le soumettre si besoin.

Je donnerais 1000€ pour avoir un cerveau compatible avec la programmation, je ne comprends rien à rien !

:'(

Citation:

---

Envoyé par barichon21

Je donnerais 1000€ pour avoir un cerveau compatible avec la programmation, je ne comprends rien à rien !

:'(

---

Un peu d'efforts et de patience ;).
Et pour la formation, cours et tutoriels pour apprendre la programmation PERL : http://perl.developpez.com/cours/

Voilà, essaye maintenant de comprendre. Je t'ai mis beaucoup de commentaires.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl use strict; use warnings;   my $fichier = '/etc/apache2/vhost.conf';   # Lecture de mon fichier open(FILE, '<', $fichier) or die("Impossible de lire le fichier $fichier\n"); # Chargement du fichier en mémoire my @lignes_vhost = <FILE>; # Fermeture du fichier, du filehandle close(FILE);   # Trions notre tableau # Dans notre sort, on fait un split en fonction de : # car notre ligne ressemble à vhost:path-log-du-vhost # Puis le trie se fait en fonction du vhost (case 0 de notre tableau) foreach my $ligne ( sort { ( split ':', $a )[0] cmp ( split ' ', $b )[0] } @lignes_vhost ) { print "$ligne\n"; my @test = split( /:/, $ligne ); print "\t\t- avant les : $test[0]\n"; print "\t\t- apres les : $test[1]\n\n"; }

---

Merci beaucoup pour ta patience, en tous cas c'est grâce a des gens comme toi que des gens comme moi arrivent peu à peu a y prendre "goût".

Une petite question:

Code:

---

1 2	cmp ( split ' ', $b )

---

Pourquoi tu split aussi avec un espace ?
:oops:

Citation:

---

Envoyé par barichon21

Merci beaucoup pour ta patience, en tous cas c'est grâce a des gens comme toi que des gens comme moi arrivent peu à peu a y prendre "goût".

Une petite question:

Code:

---

1 2	cmp ( split ' ', $b )

---

Pourquoi tu split aussi avec un espace ?
:oops:

---

nos ligne ressemblent à celle ci

Citation:

---

www.lllllllllllllllllllll.com dedefdzfczerfzfzfr

---

Il y a donc un espace séparant l'url du reste. Le but est de trier en fonction de l'url, donc pour l'obtenir, je fais un split par rapport l'unique espace et je trie

Merci de ton aide !

Ne te sauves pas lol !


Merci encore ! :ccool::ccool:

Si c'est OK, mets ton thread en résolu.

Merci