Discussion :

[aeroman00]

Bonjour,
Voici mon problème : à intervalles réguliers ( par cron), le script devra vérifier si des lignes ont été rentrées dans un fichier de log, et si oui les lire....
Je ne sais pas bien comment commencer ( en fait, récupérer les pointeurs de lecture/écriture, les mémoriser ( sur disque?) , voir si ils ont évolué ...)
Merci de vos conseils

[djibril]

Une première piste simple est de conserver la taille du fichier log tout simplement. Ensuite lire le fichier en utilisant sysread.

[aeroman00]

Merci de ta réponse
Malheureusement, ne ne peux pas agir sur le fichier log ( fichier alert.log de Oracle !) : je ne peux que le lire ....

[djibril]

Et où est le souci ? Je n'ai t'ai pas demandé d'écrire à l'intérieur.
- juste récupérer la taille du fichier
- lire le fichier avec sysread.

[aeroman00]

Bon, je me réponds à moi-même !
Voila : je lis le fichier, je récupère le pointeur de lecture du dernier enregistrement que je sauvegarde dans un fichier texte ( pas terrible )
Au prochain lancement, je récupère le pointeur et je lis le fichier là où je l'avais laissé. j'en profite pour enregistrer les nouvelles lignes dans un autre fichier ...
Je n'ai pas encore étudié le cas où le fichier à lire est plus petit que lors de la dernière lecture ( purge !)
Qu'en penses-tu ? Que dois-je améliorer ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
use strict;
my $FilePos= "c:\\pos.txt";		  # Contient la vleur de la dernière lecture
my $WinIni  = "c:\\OraStat.ini";  # Fichier à traiter
my $FileLog = "c:\\AlertLog.log"; # Fichier résultat
my $FILEINI = $WinIni ;
my $curpos = ""; # position courante du pointeur
my $Pos= ""; # Pointeur 
my $RPos = ""; # Pointeur de lecture
my $ligne = ""; # Enregistrement courant
# ------------------------------------------------------------------
# Ecriture de la position du pointeur de lecture
sub Wpos {
open(POS,">$FilePos") or die "Impossible de créer $FilePos : $!";
print POS $curpos . "\n";
print  $curpos ;
close(POS);
}
# ------------------------------------------------------------------
# Init du fichier des pointeurs
sub InitPos {
open(INI,$FILEINI) or die "Impossible ouvrir $FILEINI: $!";
while ($ligne = <INI>) {
						print  " ligne " . $ligne;
						}
$curpos = tell(INI);
close(INI);
&Wpos();
} # fin de traitement fichier pos inexistant
 
# Si le fichier $FilePos n'existe pas
if (! -e $FilePos ) {
print " fichier inexistant : premier accés \n";
&InitPos();
}
# lecture de la dernière position
open(POS,"<$FilePos") or die "Impossible d'ouvrir $FilePos : $!";
while ($Pos = <POS>) {
print $Pos;
$RPos=$Pos;
}
close(POS);
open(INI,$FILEINI) or die "Impossible ouvrir $FILEINI: $!";
open(LOG,">>$FileLog") or die "Impossible ouvrir le fichier de log $FileLog: $!";
seek(INI,$RPos,0);
while ($ligne=<INI>) {
			print  " ligne  " . $ligne;
			print LOG $ligne;
 
}
close(LOG);
$curpos = tell(INI);
close(INI);
&Wpos;

Merci de ton aide
PS: je teste sur Windows, mais ce programme doit aussi tourner sous Unix !

[lennelei]

Juste par curiosité parce que je n'ai pas regardé l'ensemble de ton problème : tu as essayé de regarder du côté des extensions File::Tail* sur CPAN ? Aucune ne marcherait sous Windows et ne simplifierait ton problème ?

[aeroman00]

J'ai une solution qui fonctionne, mais je ne sais pas si elle est "élégante"
merci pour la piste CPAN : je vais aller voir !