[Perl] Besoin d'aide

Fermé

barichon - 29 sept. 2009 à 12:24
Barichon - 12 oct. 2009 à 13:02

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.

A voir également:

[Perl] Besoin d'aide
Denon perl pro test - Guide
Active perl - Télécharger - Édition & Programmation
Can't open perl script "makefile.pl": no such file or directory - Forum Perl
Tableau(perl) ✓ - Forum Perl
Perl ftp - Forum Perl

41 réponses

Réponse 1 / 41

fxta
29 sept. 2009 à 15:31

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";
}

Réponse 2 / 41

barichon
29 sept. 2009 à 17:30

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 :

Réponse 3 / 41

barichon
29 sept. 2009 à 20:56

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,

Réponse 4 / 41

barichon
30 sept. 2009 à 10:14

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 41

barichon
30 sept. 2009 à 16:41

persones pour m'aider ? :(

Réponse 6 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
1 oct. 2009 à 00:03

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

Réponse 7 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
1 oct. 2009 à 00:06

Re,

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

Réponse 8 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
1 oct. 2009 à 00:52

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

Réponse 9 / 41

barichon
1 oct. 2009 à 16:20

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 !

Réponse 10 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
1 oct. 2009 à 22:52

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

Réponse 11 / 41

barichon
2 oct. 2009 à 10:26

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.

Réponse 12 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 11:08

Salut,

Colle ici le script que tu exécutes.

Réponse 13 / 41

barichon
2 oct. 2009 à 11:14

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__

Réponse 14 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 12:04

Re,

Affiche le résultat de

perl -cx /chemin/vers/tonscript

Réponse 15 / 41

barichon
2 oct. 2009 à 13:34

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

Réponse 16 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 14:24

Re,

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

Réponse 17 / 41

barichon
2 oct. 2009 à 15:17

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

Réponse 18 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 16:07

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__

Réponse 19 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 16:18

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__

Réponse 20 / 41

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
2 oct. 2009 à 18:11

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__

Discussions similaires

Extension fichier sous perl

ping en perl

[PERL] Ecrire dans une log en PERL

Script PERL + Module Net::SNMP

/usr/bin/env: perl: No such file or directory

Discussions similaires

Newsletters