[Perl] Besoin d'aide

Question

Bonjour a tous,

je débute dans la programmation, je suis nul mais j'essaye d'apprendre...
Je suis actuellement sur un script perl, l'objectif est de lire un fichier qui se presentent sous cette forme:

xxxxxxxxx:yyyyyyyyyy
lllllllllllllll:ppppppppp
zzzz:ooooooo

Je veut lire ce fichier (ca c'est ok) et recupérer dans un tableau1   xxxxxxxxx
                                                                                                llllllllllll
                                                                                                zzzzzzz

et récupérer dansun tableau 2: yyyyyyyyyyyyy
                                             ppppppppp
                                             oooooooooo

voici le debut de mon script, je suis bloqué a cette étape de lecture pourriez vous m'aidez svp.

!/usr/bin/perl


open(FIC,"/etc/apache2/vhost.conf") or die ("Erreur lors de l'ouverture du fichier.conf");

@fic = <FIC> ;
foreach $line (@fic)
{
   print $line;
}
close("FIC");


Cdt,

Merci d'avance.

fxta · Answer

Et voila 

@lignes = ("");
open(FILE, "<CHEMIN DE TON FICHIER");
while(<FILE>){
	push(@lignes,$_);
}
close(FILE);

for(@lignes){
	
	@test = split(/:/, $_);
	print "avant les : $test[0]
";
	print "apres les : $test[1]
";
}

barichon · Answer

Merci beaucoup pour ta réponse !

Cela marche très bien ! Merci encore !

Cependant a la fin du script ca me print ça:

avant les :

Use of uninitialized value $test[1] in concatenation (.) or string at script.pl line 12.
apres les :
avant les :

Use of uninitialized value $test[1] in concatenation (.) or string at script.pl line 12.
apres les :
avant les :

Use of uninitialized value $test[1] in concatenation (.) or string at script.pl line 12.
apres les :

barichon · Answer

Bonsoir à tous et merci a fxta qui m'a aidé précedement, j'ai passé un bon nombre d'heures mais je cale sur la seconde phase de mon script, je n'y arrive vraiment pas...

Celui ci 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)


ligne de log www.xxxxxxxxxxxxx.com cdfrzczfvretyhryh
ligne de log www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
ligne de log www.zzzzz.com fcoàfjozrifjzopr 
ligne de log www.lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
ligne de log www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
ligne de log www.lllllllllllllllllllll.com mqaazsc


Qui ensuite: (attention ça se corse mais grave !)

A partir des éléments connu dans le tableau précedent $table[0] : 

xxxxxxxxx
            llllllllllllllllll
            zzzzzzzzzz

 
Trie 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 et 1 fois zzzzzz:


ligne de log www.lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
ligne de log www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
ligne de log www.lllllllllllllllllllll.com mqaazsc
ligne de log www.xxxxxxxxxxxxx.com cdfrzczfvretyhryh
ligne de log www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
ligne de log www.zzzzz.com fcoàfjozrifjzopr
ligne de log www.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,

barichon · Answer

Ça à l'air compliquer masi ca se trouve yen a unu qui va me sortir un truc de dingue en 4 lignes...

QQ1 peut me filer la patte ?

barichon · Answer

persones pour m'aider ? :(

lami20j · Answer

Salut,

Pourquoi pas en utilisant directement le nom de domaine?

#!/usr/bin/perl
use strict;use warnings;
my %h;/www\.(.*)\./ and push @{$h{$1}},$_ while (<DATA>);
print @{$h{$_}} for (sort keys %h);
__END__
ligne de log www.xxxxxxxxxxxxx.com cdfrzczfvretyhryh
ligne de log www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
ligne de log www.zzzzz.com fcoàfjozrifjzopr
ligne de log www.lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
ligne de log www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
ligne de log www.lllllllllllllllllllll.com mqaazsc

Resultat
lami20j@debian:~/trash/ccm_perl$ perl tri.pl
ligne de log www.lllllllllllllllllllll.com dedefdzfczerfzfzfr
ligne de log www.lllllllllllllllllllll.com njnjnjnjnjijklpmvretyhryh
ligne de log www.lllllllllllllllllllll.com mqaazsc
ligne de log www.xxxxxxxxxxxxx.com cdfrzczfvretyhryh
ligne de log www.xxxxxxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
ligne de log www.zzzzz.com fcoàfjozrifjzopr

lami20j · Answer

Re,

A partir des éléments connu dans le tableau précedent $table[0] : 
Attention, $table[0], n'est pas un tableau.

lami20j · Answer

Re, Voici un exemple qui traite les deux cas Le script #!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"format.txt" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; print "@f1@f2 "; # maintenant tu as 2 tableaux # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /www\.(.*)\./;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } print @{$h{$_}} for (sort keys %h);print "@reste"; __END__ Le fichier access.log ligne de log www.xxxxxxxxx.com cdfrzczfvretyhryh ligne de log www.lllllllllllllll.com dedefdzfczerfzfzfr ligne de log www.zzzz.com fcoàfjozrifjzopr ligne de log www.lllllllllllllll.com njnjnjnjnjijklpmvretyhryh ligne de log www.xxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh ligne de log www.lllllllllllllll.com mqaazsc ligne de log www.nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm Le fichier format.txt lami20j@debian:~/trash/ccm_perl$ cat format.txt xxxxxxxxx:yyyyyyyyyy lllllllllllllll:ppppppppp zzzz:ooooooo Exécution du script lami20j@debian:~/trash/ccm_perl$ perl tri2.pl xxxxxxxxx lllllllllllllll zzzz yyyyyyyyyy ppppppppp ooooooo ligne de log www.lllllllllllllll.com dedefdzfczerfzfzfr ligne de log www.lllllllllllllll.com njnjnjnjnjijklpmvretyhryh ligne de log www.lllllllllllllll.com mqaazsc ligne de log www.xxxxxxxxx.com cdfrzczfvretyhryh ligne de log www.xxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh ligne de log www.zzzz.com fcoàfjozrifjzopr ligne de log www.nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm

barichon · Answer

MERCI, un grand merci pour ton aide !!!!!!!!

Génial :)

Heu un pti truc qui change, genre si mon fichier de log a un te comme ca sans les "www.":


llllllllllllllll.com dedefdzfczerfzfzfr
llllllllllllllll.com njnjnjnjnjijklpmvretyhryh
lllllllllllllll.com mqaazsc
xxxxxxxxx.com cdfrzczfvretyhryh
xxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh
zzzz.com fcoàfjozrifjzopr
nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm


ca donne koi ?

Merci de ton aide encore une fois !

lami20j · Answer

Salut, Le script En gras tu as les modifications #!/usr/bin/perl use strict;use warnings; open F,"access.log1" or die "E/S: $! "; open FF,"format.txt" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; print "@f1 @f2 "; # maintenant tu as 2 tableaux # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*)\./;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } print @{$h{$_}} for (sort keys %h);print "@reste"; __END__ Le fichier access.log1 xxxxxxxxx.com cdfrzczfvretyhryh lllllllllllllll.com dedefdzfczerfzfzfr zzzz.com fcoàfjozrifjzopr lllllllllllllll.com njnjnjnjnjijklpmvretyhryh xxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh lllllllllllllll.com mqaazsc nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm L'exécution lami20j@debian:~/trash/ccm_perl$ perl tri3.pl xxxxxxxxx lllllllllllllll zzzz yyyyyyyyyy ppppppppp ooooooo lllllllllllllll.com dedefdzfczerfzfzfr lllllllllllllll.com njnjnjnjnjijklpmvretyhryh lllllllllllllll.com mqaazsc xxxxxxxxx.com cdfrzczfvretyhryh xxxxxxxxx.com aaaadfdcfkbhbkuljnl,pmyhryh zzzz.com fcoàfjozrifjzopr nonpresent dans la table $table[0].com czefvrepv,epbt,eptb,eprm

barichon · Answer

Merci lami20j tu veux pas m'apprendre nta magie ?

Tu me fais rêver là !

J'ai un petit problème car l'execution du script  quand je print:

print @{$h{$_}} for (sort keys %h);print "@reste";

ca me dit:


Unmatched ( in regex; marked by <-- HERE in blablabla at script5.pl line 15, <F> line 8.

lami20j · Answer

Salut,

Colle ici le script que tu exécutes.

barichon · Answer

tiens regarde j'execute ceci: #!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; print "@f1 @f2 "; # maintenant tu as 2 tableaux # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*)\./;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } print @{$h{$_}} for (sort keys %h);print "@reste"; __END__

lami20j · Answer

Re,

Affiche le résultat deperl -cx /chemin/vers/tonscript

barichon · Answer

romain@romain:/etc/apache2$ perl -cx /etc/apache2/script5.pl
/etc/apache2/script5.pl syntax OK

lami20j · Answer

Re,

Pour voir ce qui ne va pas, j'ai besoin de tes 2 fichiers, access.log et vhost.conf

barichon · Answer

Je te file ça en mp c'est privé.

lami20j · Answer

Re, En ce qui concerne le message d'erreur n'était pas complet (vu la confidentialité de message), donc je ne pouvais pas savoir pourquoi. En fait par exemple dans la ligne 8 comme le montre le message d'erreur, on voit qu'elle commence avec quelque chose de genre sous-nom.domaine.fr xx.x.xxx.xx Dans la regex de script je capture jusqu'au 1er point vu ton exemple llllllllllllllll.com dedefdzfczerfzfzfr Donc au lieu de trouver correctement sous-nom.domaine.fr la regex trouve seulement sous-nom Voici un script qui doit fonctionner (les modifications en gras)#!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; #print "@f1 @f2 "; # maintenant tu as 2 tableaux # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } print @{$h{$_}} for (sort keys %h);print for @reste; __END__

lami20j · Answer

Re, Comme le tri se faisait seulement selon le nom de domaine, j'ai remarque que le tri n'est pas fait pour les IP Voici une version qui fait le tri correctement sur la ligne entière #!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; #print "@f1 @f2 "; # maintenant tu as 2 tableaux # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } print sort @{$h{$_}} for (sort keys %h);print for sort @reste; __END__

lami20j · Answer

Re, Ca doit être bon maintenant #!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } my @trie = map { $_->[1] } sort { $b->[0] <=> $a->[0] } map { [ @$_+0, $_ ] } values %h; print sort @$_ for @trie;print for sort @reste; __END__

Barichon · Answer

Salut lamj ;)

J'ai testé ta dernière version,

La ligne alloclips apparait toujours en 1er hors elle devrait apparaitre en derniers vu qu'il n'y a qu'une seul occurence de celle-ci dans access.log, non ?

Merci

Barichon · Answer

autant pour moi ca marhce très bien !

;)

L'objectif suivant c'est de faire un cut de chaque groupe d'oocurences de ce que l'on obtiens de "sort @$_ for @trie" et de les placées dans un fichier (vhostjjmmaaaa.log)dans le path log correspondant a cette ocurrence(@f2).

C'est dur ? tu t'y prendrais comment ?

lami20j · Answer

Re,

Mets dans le script ce ces lignes et exécute le script.
Ensuite affiche le résultat.

print scalar @trie,"
";
print scalar @$_ for @trie;print for sort @reste;

Barichon · Answer

tiens après exucution:

 sudo perl scriptlol.pl
6
2565111"access.log" [readonly][converted] 65641L, 17119557C

lami20j · Answer

Re,

de les placées dans un fichier (vhostjjmmaaaa.log)
ça ce n'est pas difficile

dans le path log correspondant a cette ocurrence(@f2).
Ça, je n'ai pas compris.

Tu peux me donner un exemple?

Barichon · Answer

Désolé j'ai du mal m'exprimé.

Chaque lignes de logs pour ce groupe d'occurences  (en s'occupant en 1er du vhost qui a le plus d'occurences)  devra etre gréppé du résultat et etre placé dans un fichier vhostjjmmaaaa.log a l'adresse "pathlog" qui lui correspond dans vhost.conf (ex /mnt/filer-genet-3/a/b/ab......com/ftp/logs/).

J'ai été plsu claire ? :( 

lol

lami20j · Answer

Re, Essaie ça#!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; open FFF,">vhostjjmmaaaa.log" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } my @trie = map { $_->[1] } sort { $b->[0] <=> $a->[0] } map { [ @$_+0, $_ ] } values %h; print sort @$_ for @trie;print for sort @reste; for my $e(@trie){ for (@{$e}){ /^(.*?)\s.*/ and print FFF grep { /^$1/ } qx/cat vhost.conf/; } } __END__

lami20j · Answer

Salut, Essaie ce script. Toutefois, il n'est pas très performant vu qu'il y a trop d'appels système. En fait vu le résultat que tu veux obtenir, je ne vois pas à quoi ça sers de faire un tri par nombre d'occurrences, à moins que tu as un traitement particulier dont tu n'as pas parlé. Je vais pensé l'week-end prochain pour une optimisation. #!/usr/bin/perl use strict;use warnings; open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; # 1ère partie : obtenir les tableaux my (@f1,@f2,@reste,%h); push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(); chomp@f2; # 2ème partie : faire le tri par rapport au tableau @f1 while (){ /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1; push @reste,$_ unless grep{/$1/}@f1; } my @trie = map { $_->[1] } sort { $b->[0] <=> $a->[0] } map { [ @$_+0, $_ ] } values %h; #print sort @$_ for @trie;print for sort @reste; for my $e(@trie){ for (@{$e}){ /^((.*?\.).*?)\s.*/; my $fic = "$2" . qx/date '+%d%m%Y'/; open FFF,">>$fic" or die "E/S : $! "; print FFF grep { /^$1/ } qx/cat vhost.conf/; close $fic; } } __END__

Barichon · Answer

Tu assures en attendant, je test ca demain !

lami20j · Answer

Re,

Essaie plutôt ça et dit si ça te conviens.
#!/usr/bin/perl
use strict;use warnings;
open F,"access.log"  or die "E/S: $!
";
my %h;

while(<F>){
  next unless /^(.*?)\s.*/;
  $h{$1}++;
}
for (keys %h){
  my $z=$_;
  /^(.*?\.).*/;
  chomp(my $fic="$1" . qx/date '+%d%m%Y'/);
  my $c = grep { /^$z/ } qx/cat vhost.conf/;
  if($c>0){
    open FFF,">>$fic" or die "E/S : $!
";
    print FFF grep { /^$z/ } qx/cat access.log/;
    close $fic;
  }
}
__END__

Barichon · Answer

Sinon tu donnes des cours ? Combien de l'heure ?  J'achète !

Merci ca fais vraiment plaisir de voir des gens comme toi, je test ça demain.

lami20j · Answer

Salut,

Le dernier script que je te donné, selon moi, fonctionne (j'ai testé sur les deux fichiers que tu m'as donné).
En revanche access.log n'est pas grand.
J'ai fait un test sur un access.log de 200 Mo et le traitement a été fait en 1 minute (Athlon XP 1,5 Mhz, 512 DDRAM + 400 Mo swap)

Toutefois, je pense qu'on peut encore améliorer.
Si tu regardes bien, dans le script le fichiers access.log est parcouru plusieurs fois.
- une fois quand on stocke les host (voir la 1ère boucle while)
- dans la boucle for est parcouru en fonctionne de nombre de host trouvé et qui correspondent avec vhost
Donc ce n'est pas très efficace sur un fichier de quelque Go par exemple.

L'idéal sera de parcourrir le fichier access.log une seule fois et d'écrire dans vhostjjmmaa.log les lignes trouvées.

Je suis en train de penser à une solution.
D'ailleurs ce qui t'interesse c'est qu'en partant de l'access.log tu dois créer un vhostjjmmaa.log pour chaque vhost qui se trouve dans vhost.

Donc j'ai suivi ton raisonnement, et je suis parti à la recherche d'abord de vhost dans access.log (ce qui implique le 1ère parcours de access.log) et ensuite reprendre le vhost.conf pour voir si les vhost correspondent et ensuite pourcourrir le access.log pour chaque vhost.

Mon idée est en fait de lire le vhost.conf et ensuite de parcourrir une seule fois access.log et dès qu'en vhost est rencontré alors on écrit dans le fichier vhostjjmmaa.log.
Tu vois ce que je veux dire?

lami20j · Answer

Salut, Je viens de faire un test avec la dernière version que je t'ai donné et aussi avec une nouvelle que j'ai écrit selon le raisonnement de mon dernier message (Message N° 33 ) Le test je l'ai fait sur lami20j@debian:~$ cat /proc/cpuinfo processor : 0 vendor_id : AuthenticAMD cpu family : 6 model : 8 model name : AMD Athlon(tm) XP 2200+ stepping : 0 cpu MHz : 1793.189 lami20j@debian:~$ free total used free shared buffers cached Mem: 516300 411508 104792 0 10540 170024 -/+ buffers/cache: 230944 285356 Swap: 393552 112172 281380 lami20j@debian:~$ uname -a Linux debian 2.6.26-2-686 #1 SMP Wed Aug 19 06:06:52 UTC 2009 i686 GNU/Linux J'ai utilisé un fichier access.log de 3.4 Go et plus de 20 millions lignes lami20j@debian:/mnt/hda5/accesslog$ wc -l access.log; du -h access.log 20054931 access.log 3,4G access.log Pour la version du message 13 après presque 2heures j'ai eu Out of memory sans avoir le résultat voulu lami20j@debian:/mnt/hda5/accesslog$ time perl stock_accesslog_v4.pl Complété real 116m2.399s user 2m49.391s sys 0m42.367s En revanche avec une autre version le traitement a été effectué correctement dans 8minutes 32secondes lami20j@debian:/mnt/hda5/accesslog$ time perl stock_accesslog_v5.pl real 8m39.852s user 2m51.499s sys 0m31.422s Il faudra qu'on parle en ce qui concerne cette dernière version.(Le chemin des logs n'est pas pris en compte. Un fichier vide sera crée pour chaque vhost, ce qui normalement ne dérange pas vu le gagne de performance.) #!/usr/bin/perl open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; my (%h,%vhost); chomp(my $date=qx/date '+%d%m%Y'/); while(){ /^(.*):.*/; $vhost{$1}++; } for(keys %vhost){ /^(.*?)\..*/; my $vhostjjmmaa = "$1.$date"; open $vhostjjmmaa,">>${vhostjjmmaa}.log" or die "E/S: $! "; } while(){ next unless /^((.*?)\..*?)\s.*/; my $FH = "$2." . $date; print $FH $_; } for(keys %vhost){ /^(.*?)\..*/; close "$1.$date"; } __END__ Mais après cette histoire, je me pose une question. Pourquoi ne pas configurer une des directives (TransferLog, CustomLog) directement dans la configuration des VirtualHost ? Comme ça il n'y a plus besoin d'un script Perl pour avoir les logs par vhost. Apache s'occupera lui même.

lami20j · Answer

Salut,

Pour la version du message 13 
Correction : Pour la version du message 31

lami20j · Answer

Re,

Tu as vu ce message?
https://forums.commentcamarche.net/forum/affich-14564435-perl-besoin-d-aide?page=2#34

lami20j · Answer

Re,

Ben, le script est dans le message.
Il est complétement modifié.
Je parcours le fichier access.log une seule fois, d''où le gagne de performances.

Mon raisonnement est dans le message 33

barichon · Answer

Pfff quel boulet !

Dslé j'ai pas cliquer sur la fenêtre qui donne le totalité du post (fatigue lol)

C'est un tres bonne nouvelle tout ca ! franchement Bravo !

en ce qui concerne ta question:

Mais après cette histoire, je me pose une question.
Pourquoi ne pas configurer une des directives (TransferLog, CustomLog) directement dans la configuration des VirtualHost ?
Comme ça il n'y a plus besoin d'un script Perl pour avoir les logs par vhost.
Apache s'occupera lui même.


Oui je suis d'accords avce toi, je ne connais pas cette fonction je vais faire qq recherches la dessus.
Mais vu y'aura des fichiers  genére genre dl.082009.log pour un vhost et peut etre un autre du même nom pour un autre vhost (vu que dl représente juste le serivce de download)... tu voit ce que je veux dire ???

lami20j · Answer

Re, J'ai créer les répertoire selon vhost.conf. Les fichiers logs sont créer dans le répertorie correspondant. Les fichiers vides seront supprimé à la fin. Le test sur le même fichier de 3.4 Go varie chez moi (en fonction de la charge de mon pc, puisque je fais d'autre choses aussi ;-) entre 8minutes et 10 minutes A savoir que peut être les noms des fichiers on le nom nomdomainejusque1erpoint.jjmmaa.log Voici le script. Tu me diras le résultat des tests. A savoir que le script doit être exécuter en root vu qu'on écrit un peu partout dans /mnt #!/usr/bin/perl open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; my (%h,%vhost); chomp(my $date=qx/date '+%d%m%Y'/); while(){ s/\s*$//g; /^(.*):(.*)/; $vhost{$1}=$2; } for(keys %vhost){ s/^\s*//g; /^(.*?)\..*/; my $vhostjjmmaa = "$1.$date"; my $handle=$_; open $handle,">$vhost{$_}${vhostjjmmaa}.log" or die "E/S: $! "; } while(){ next unless /^((.*?)\..*?)\s.*/; my $FH=$1; print $FH $_; } for(keys %vhost){ close $_;} for(values %vhost){ opendir(REP,$_); while(my $fic=readdir REP){ next if $fic=~/\.\.?$/; chomp(my $taille = qx/du -sh "$_$fic"/); unlink "$_$fic" if $taille=~/^0/; } close REP; } __END__

Barichon · Answer

merci beaucoup je pourrais tester que en live car focément j'ai pas les droit pour tester ça seul...

Peut tu me commenter tout ça ?

Merci encore pour cette contribution énorme !

lami20j · Answer

Re, #!/usr/bin/perl open F,"access.log" or die "E/S: $! "; open FF,"vhost.conf" or die "E/S: $! "; my (%h,%vhost); # la date du système chomp(my $date=qx/date '+%d%m%Y'/); # la cle du hash = le nom de domaine # la valeur du hash = le répertoire /mnt/.... while(){ s/\s*$//g; /^(.*):(.*)/; $vhost{$1}=$2; } # ouverture d'un handle de fichier en écriture # pour chaque fichier (dans /mnt/...) for(keys %vhost){ s/^\s*//g; /^(.*?)\..*/; my $vhostjjmmaa = "$1.$date"; my $handle=$_; open $handle,">$vhost{$_}${vhostjjmmaa}.log" or die "E/S: $! "; } # access.log est parcouru une seule fois while(){ # saute les lignes qui ne correspondent aux nom domaines next unless /^((.*?)\..*?)\s.*/; my $FH=$1; # je stocke la chaîne de caractères # qui corresponde aux handle ouvert print $FH $_; # j'écris dans le handle (le fichier /mnt/../vhostjjmmaa.log } # fermeture des handles ouverts for(keys %vhost){ close $_;} # suppression des fichiers vides dans /mnt/.. for(values %vhost){ # pour chaque vhost opendir(REP,$_); # handle vers /mnt/.. while(my $fic=readdir REP){ # chaque fichier next if $fic=~/\.\.?$/; # sauf . et .. chomp(my $taille = qx/du -sh "$_$fic"/); # je calcule la taille unlink "$_$fic" if $taille=~/^0/; # si zéro je supprime } close REP; # fermeture de handle en cours } __END__

Barichon · Answer

oups besoin de ton aide :(

je m'apprete a faire qq test avant de presenter ça...

mais ca ne merche pas, voici je que j'ai quand j'execute le script:

Use of uninitialized value $1 in hash element at script_V2.0.pl line 13, <FF> line 73.
Use of uninitialized value $1 in hash element at script_V2.0.pl line 13, <FF> line 74.
Use of uninitialized value $1 in hash element at script_V2.0.pl line 13, <FF> line 75.
Use of uninitialized value $1 in concatenation (.) or string at script_V2.0.pl line 21, <FF> line 75.
Use of uninitialized value within %vhost in concatenation (.) or string at script_V2.0.pl line 23, <FF> line 75.
E/S: Aucun fichier ou dossier de ce type

[Perl] Besoin d'aide - Page 3

Discussions similaires

Newsletters