Discussion :

[Empty_body]

Salut,
J'aimerais savoir comment faire en Perl pour lire les X dernières lignes d'un fihiers. Les 10 dernières par exemple.
Pour les 10 premières, je pense que ça donnerait un truc du genre :

Code :

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

1
2
3
4
5
$i = 0;
while (($ligne = <>)||($i>10){
  print $ligne."<br>";
  $i ++;
}

Mais je m'écarte, ce sont bien les 10 dernières que j'aimerais afficher...
Quelqu'un sait m'éclairer?
Merci...

[stoyak]

si ton fichier n'est pas trop gros, tu le mets dans un tableau, fais un reverse et affiche les 10 premiere cases

[Empty_body]

J'y avais vaguement pensé mais comme il s'agit de fichiers de logs sur un serveur qui tourne en debug, ça fait minimum 30-40 mega, parfois beaucoup plus... C'est pour ça que j'aimerais juste lire les X dernières lignes... C'est jouable autrement que par tableau?

[Empty_body]

EN fait, ce qui me faurdait, ce serait un moyen, sans parcourir le fichier séquentiellement, de trouver le nombre de ligne que ce dernier contient.

[Pauli]

tu peux peut etre essayer d'executer une commande systeme:
@last_10_lines = `tail -10 $file`

[Jedai]

Tu peux utiliser File::ReadBackward . Tu peux également te débrouiller avec quelque seeks à la main, mais si tu peux plutôt installer le module, n'hésite pas.

--
Jedaï

[Empty_body]

Symple et efficace...
Merci...