Discussion :

[berni13]

Bonjour je cherche un moyen pour vérifier les modifications d'un fichier txt, je me suis basé sur un système que j'avais mis au point pour un eggdrop qui annonce lorsqu'une dédicace est demandé dans un fichier txt, ce système me prévient lorsque le fichier dedicace.txt passe de zéro à un et me prévient régulièrement tant que je consulte pas ce qui a pour effet de vider le fichier qui repasse à zero.
Hors pour ma nouvelle application c'est pour prévenir qu'un tchat est en cours dans une tchabox du site, il faudrait que cette fois je ne sois averti qu'une seule fois quand un nouveau message apparaît vu que je ne vide pas le fichier à la lecture, voici mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 proc verifc { min hour day month year }  {
   		       set cont 0
	set file [open scripts/data.txt r]
	for {set temp "[gets $file]"} {$temp != ""} {set temp "[gets $file]"} {
		set cont [expr $cont+1]
		if {$cont==1} {
		putserv	"privmsg  #back.slm :7• 4\[chat\] : $temp , !chatr pour répondre 7•"
    		}
		}
	close $file
 }

dans le cas du tchat je voudrais être averti une seule fois quand le fichier passe de zero à un puis une nouvelle fois quand il passe de un à deux etc.

[Canvas]

Bonsoir,

Pour vérifier si un fichier a été modifié, il existe la commande file mtime <fichier> qui renvoie la dernière date de modification.

[berni13]

Merci je vais essayer de concevoir mon script avec cette fonction.

[berni13]

Par contre je ne vois pas comment concevoir mon script pour tenir compte de la modification de la variable: set var [file mtime fichier.xxx]
quand il aura été modifié.

[Canvas]

Bonsoir,

Voici une solution possible où la date de modification du fichier est vérifiée toutes les 4 secondes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
proc ObserveFichier {f {time -}} {
 set freq 4000
 if {$time eq "-"} {
   ObserveFichier $f [file mtime $f]
 } else {
   set ntime [file mtime $f]
   if {$ntime != $time} {
     puts "** Nouveau message **"
     ObserveFichier $f
   } else {after $freq ObserveFichier $f $ntime}
 }
}
 
ObserveFichier scripts/data.txt

[berni13]

Merci je testerais et informerais si ça convient bien

[berni13]

Alors j'ai modifié pour avoir le message sur le salon de tchat ainsi :

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
 
proc ObserveFichier {f {time -}} {
 set freq 4000
 if {$time eq "-"} {
   ObserveFichier $f [file mtime $f]
 } else {
   set ntime [file mtime $f]
   if {$ntime != $time} {
     putserv "PRIVMSG #back.slm : ** 4 Nouveau message  tape !chatv pour voir,  !chatr pour répondre ** "
     ObserveFichier $f
   } else {after $freq ObserveFichier $f $ntime}
   }
}
 
ObserveFichier scripts/data.txt

et maintenant je cherche a faire afficher dans le message le contenu de data.txt ou encore mieux la dernière ligne, ce qui permettrais de supprimer la commande !chatv
mes essais pour le moment ne fonctionnent pas.

[Canvas]

Bonsoir,

Pour lire la dernière ligne d'un fichier on insère après la ligne 8 le code suivant :

Code tcl :

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

1
2
3
4
5
set fp [open $f r]
set fd [read $fp]
close $fp
set data [split $fd "\n"]
set lastline [lindex $data end]

Le contenu de la dernière ligne se trouve dans la variable lastline.

[berni13]

Merci je testerais ça et vous informerais.

[berni13]

Parfait exactement ce que je cherchais, encore merci.