analyse de logs en perl

Salut je ne connais presque pas perl (mis à part faire un script du genre hello world :? ).

Je voudrais savoir si il est possible de lire via un script perl les logs d'apache afin de savoir si un fichier prédéfini a été consulté ou non (une image par exemple).

Si oui quelqu'un aurait un modèle de départ, un script du même genre, un lien vers un tuto, un cours ?

Merci :wink:

Bonjour

Un truc du genre :

Code:

---

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

#!/usr/bin/perl -w use strict; my $log_apache="/var/log/apache/access.log"; open(FIC,"<$log_apache"); while (<FIC>) { my $li=$_; if ($li=~/image.png/) { print $li."\n"; } } close(FIC);

---

Tu remplaces $log_apache par ton fichier (suivant ton OS) et la sortie te renvoie toutes les lignes contenant image.png.

Pourquoi passes-tu par une variable intermédaire dans ta boucle ? Pourquoi ne pas faire directement le test sur $_ ?

Usti

Question d'habitude ;)

Ici, c'est vrai que tu ne risques rien à travailler directement sur $_

J'ai un peu du mal à cerner dans quels cas ça peut être dangereux de travailler directement sur $_ ?

Je débute en perl, je galère un peu mais pour le moment j'arrive à faire ce que je veux ;).
La faq et les tuto du site m'ont bien aidés (et je dis pas ça parce que je connais l'un des rédacteurs :roll: ).

Usti

PS: désolé de dévier un peu du sujet original :oops:

Salut usti

Disons que $_ est ce que l'on appelle la variable par défaut. Elle peut ne pas être utilisé c'est au regard du programmeur. Disons que pour débuter, je dirais qu'il est déconseiller d'utiliser $_ pour être vraiment maître de son code. Après, c'est à disposition ;)

@++

Citation:

---

Envoyé par ustilago

J'ai un peu du mal à cerner dans quels cas ça peut être dangereux de travailler directement sur $_ ?

---

Comme l'a dit GLDavid, $_ est la variable par défaut, c'est à dire que si, par exemple, tu parcours un tableau, $_ contient la valeur actuelle.

Code:

---

1 2 3 4 5

@tab = ("jean","rené","paul"); foreach (@tab) { print $_."\n"; }

---

foreach parcour le tableau indice par indice, et $_ contient la valeur corespondant à l'indice actuel.

Et c'est là que se trouve le danger (minime si on en a conscience) ! En fait $_ n'est pas une copie de @tab[indice actuel] mais pointe sur @tab[indice actuel], c'est à dire que si tu modifies $_ tu vas modifier ton tableau !!!

Code:

---

1 2 3 4 5 6

@tab = ("jean","rené","paul"); foreach (@tab) { $_ .= "\n"; print $_; }

---

Cela affichera la même chose que précédement, mais après la boucle ton tableau contiendra :

Code:

---

1 2	"jean\n","rené\n","paul\n"

---

Euuh désolé j'me suis endormi pendant quelques jours.

Merci Stratch pour ta réponse et merci les autres pour les précision sur le $_
:wink:

Salut

La prochaine fois, n'oublies pas alors de cliquer sur le bouton :resolu: la prochaine fois.

@++

pardon j'ai cherché le bouton en haut comme sur certains autres forums.
Navré :oops:

Merci pour vos explications sur $_, je pensais effectivement que c'était équivalent à une variable intermédiaire, et n'avais pas percuté qu'en fait en la modifiant je modifiais mon tableau (cf exemple donné par Stach) :roll: !

Va falloir que je zieute mes scripts, et à l'avenir je vais prendre garde ;).

Usti

C'est l'un des petits pièges de $_ mais l'autre plus fréquent est l'ambiguité : lorsqu'on imbrique deux boucles qui changent $_, on peut assez facilement faire des bétises... Donc $_ est à réserver aux boucles les plus extérieures (ou intérieures, mais il faut respecter la convention choisie) pour éviter ces problèmes. Et nommer la variable de boucle permet aussi de documenter son code lorsque ce n'est pas évident.

--
Jedaï