Je vais essayer de décrire ce que je veux faire en Perl sachant que je
suis un total débutant avec de bonnes notions de PHP. Je souhaite
migrer de PHP vers Perl ou au moins être capable d'utiliser les deux
selon mes besoins.
Mon but est de surveiller un fichier log et d'envoyer toutes les
nouvelles données qui arrivent dans ce fichier à une sub sous forme
d'argument.
Je pense (non testé) à quelquechose qui en PHP donnerait :
$int_OldLogSize = 0;
$fop = 0;
while(1){//forever
if(filesize("Monlog.log")!=$int_OldLogSize){
$fop = fopen("Monlog.log","r") or die("Could not open file Monlog.log");
fseek($fop,$int_OldLogSize);
while($NL = fgets($fop,1024)){
MySub($NL);
}
flcose("Monlog.log");
$int_OldLogSize = filesize("Monlog.log");
}
}
function MySub($str_Data){
//Do smthg with $str_Data
Echo $str_Data;
}
Cela a-t-il du sens ? Suis-je bien sûr de récupérer toutes les
nouvelles données ainsi ? Je suis sûr qu'il doit y avoir moyen d'être
plus concis.
Merci de me conseiller des pistes pour faire la même chose ou mieux en
Perl. Avec ça, je pense que je pourrai commencer à bidouiller et
progresser en Perl. Merci !
