[Perl] Besoin d'aide

Et voila

@lignes = ("");
open(FILE, "<CHEMIN DE TON FICHIER");
while(<FILE>){
	push(@lignes,$_);
}
close(FILE);

for(@lignes){
	
	@test = split(/:/, $_);
	print "avant les : $test[0]\n";
	print "apres les : $test[1]\n";
}

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 :

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,

Ç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 ?

persones pour m'aider ? :(

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

Re,

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

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: $!\n";
open FF,"format.txt" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;
print "@f1@f2\n"; # maintenant tu as 2 tableaux

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
  /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

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 !

Salut,

Le script
En gras tu as les modifications

#!/usr/bin/perl
use strict;use warnings;

open F,"access.log1"  or die "E/S: $!\n";
open FF,"format.txt" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;
print "@f1\n@f2\n"; # maintenant tu as 2 tableaux

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
  /^(.*)\./;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

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.

Salut,

Colle ici le script que tu exécutes.

tiens regarde j'execute ceci:

#!/usr/bin/perl
use strict;use warnings;

open F,"access.log"  or die "E/S: $!\n";
open FF,"vhost.conf" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;
print "@f1\n@f2\n"; # maintenant tu as 2 tableaux

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
  /^(.*)\./;push @{$h{$1}},$_ if grep{/$1/} @f1;
  push @reste,$_ unless grep{/$1/}@f1;
}
print @{$h{$_}} for (sort keys %h);print "@reste";

__END__

Re,

Affiche le résultat de

perl -cx /chemin/vers/tonscript

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

Re,

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

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

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: $!\n";
open FF,"vhost.conf" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;
#print "@f1\n@f2\n"; # maintenant tu as 2 tableaux

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
          /^(.*?)\s/;push @{$h{$1}},$_ if grep{/$1/} @f1;
            push @reste,$_ unless grep{/$1/}@f1;
}
print @{$h{$_}} for (sort keys %h);print for @reste;

__END__

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: $!\n";
open FF,"vhost.conf" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;
#print "@f1\n@f2\n"; # maintenant tu as 2 tableaux

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
          /^(.*?)\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__

Re,

Ca doit être bon maintenant

#!/usr/bin/perl
use strict;use warnings;

open F,"access.log"  or die "E/S: $!\n";
open FF,"vhost.conf" or die "E/S: $!\n";

# 1ère partie : obtenir les tableaux
my (@f1,@f2,@reste,%h);
push @f1,(split ":",$_)[0] and push @f2,(split ":",$_)[1] while(<FF>);
chomp@f2;

# 2ème partie : faire le tri par rapport au tableau @f1
while (<F>){
          /^(.*?)\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__