Discussion :

[KraD_74]

Bonjour,

Donc voila je cherche à placer le contenu d'un fichier de log dans un tableau et ceci ligne par ligne (1 ligne dans le log = 1 case dans le tableau).
Et je cherche enfin à récupérer le contenu de la derniere case du tableau donc la derniere ligne du fichier log.

Merci d'avance à vous

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
open (LOG, '<', 'monfichier.log') or die('Impossible de lire le fichier');
my @Tableau = <LOG>;
close(LOG);

[KraD_74]

Merci djibril pour ta rapidité et ton efficacité !

Et tu saurais pour trouver la derniere case de ce tableau ?
Car en fait je souhaite comparer cette derniere case (chaine de caractères) avec une de mes variables

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $Tableau[-1];

[KraD_74]

Merci beaucoup

[djibril]

pensez à

[Olivier.p]

Le module Tie::File est peut être plus optimisé pour les gros fichiers non ?

[djibril]

Absolument!! Car il évite de charger tout le fichier en mémoire.

[KraD_74]

Mon fichier ne contiendra que des chaines de caractères donc pas trés volumineux.
J'ai donc fini mon petit code et ça ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
{
#Ouverture en lecture du fichier test_acces_Source.log :
open (ERR, '<', '/var/log/test_acces_Source.log') || die ('Impossible de lire le fichier !');
#Insertion du contenu du fichier .log dans un tableau :
my @Tableau = <ERR>;
close (ERR);
$mot = "envoyes";
$var = $Tableau[-1];
#Ouverture en ecriture du fichier test_acces_Source.log :
open(ERR,">>/var/log/test_acces_Source.log") || die ("Erreur d'ouverture de /var/log/test_acces_Source.log") ;
	if ($var =~ /$mot/)
	{