Comment puis-je lire des lignes à partir de la fin du fichier en Perl?

Sous *nix, vous pouvez utiliser la queue de la commande.

tail -1000 yourfile | perl ...

Qui vont écrire seulement le dernier 1000 lignes pour le programme perl.

Sur Windows, il y a gnuwin32 et unxutils les paquets ont tail utilitaire.

Ce n'est que tangentiellement liés à votre question principale, mais lorsque vous voulez vérifier si un module comme Fichier::Queue fonctionne sur votre plate-forme, de vérifier les résultats de CPAN Testeurs. Les liens en haut de la page du module dans CPAN Recherche vous conduire à

En regardant la matrice permet de voir qu'en effet, ce module a un problème sur Windows sur toutes les versions de Perl testé:

Sans queue, Perl seule solution n'est pas déraisonnable.

Une façon est de chercher à partir de la fin du fichier, puis lire des lignes. Si vous n'avez pas assez de lignes, de chercher encore plus loin de la fin et essayer de nouveau.

sub last_x_lines {
    my ($filename, $lineswanted) = @_;
    my ($line, $filesize, $seekpos, $numread, @lines);

    open F, $filename or die "Can't read $filename: $!\n";

    $filesize = -s $filename;
    $seekpos = 50 * $lineswanted;
    $numread = 0;

    while ($numread < $lineswanted) {
        @lines = ();
        $numread = 0;
        seek(F, $filesize - $seekpos, 0);
        <F> if $seekpos < $filesize; # Discard probably fragmentary line
        while (defined($line = <F>)) {
            push @lines, $line;
            shift @lines if ++$numread > $lineswanted;
        }
        if ($numread < $lineswanted) {
            # We didn't get enough lines. Double the amount of space to read from next time.
            if ($seekpos >= $filesize) {
                die "There aren't even $lineswanted lines in $filename - I got $numread\n";
            }
            $seekpos *= 2;
            $seekpos = $filesize if $seekpos >= $filesize;
        }
    }
    close F;
    return @lines;
}

P. S. Un meilleur titre serait quelque chose comme "la Lecture des lignes de la fin d'un grand fichier en Perl".

Vous pouvez utiliser Tie::File module je crois. Il ressemble à ceci charge les lignes dans un tableau, alors vous pouvez obtenir la taille de la matrice et de traiter les tableaux-ze-1000 jusqu'à arraySize-1.

Tie::File

Une autre Option serait de compter le nombre de lignes dans le fichier, ensuite une boucle sur le fichier une fois, et commencer la lecture dans les valeurs à numberofLines-1000

$count = `wc -l < $file`;
die "wc failed: $?" if $?;
chomp($count);

Qui vous donnent le nombre de lignes (sur la plupart des systèmes.

Les modules sont la voie à suivre. Cependant, parfois, vous peut être d'écrire un morceau de code que vous voulez exécuter sur une variété de machines qui peuvent être à côté de la plus obscure des modules de CPAN. Dans ce cas, pourquoi ne pas simplement la "queue" et de vidage de la sortie vers un fichier temporaire de l'intérieur Perl?

#!/usr/bin/perl

`tail --lines=1000 /path/myfile.txt > tempfile.txt`

Vous avez alors quelque chose qui ne dépend pas d'un module CPAN si l'installation on peut présenter un problème.

Vous devez absolument utiliser le Fichier::Queue, ou mieux encore un autre module. Ce n'est pas un script, c'est un module (bibliothèque de programmation). Il est probable fonctionne sur Windows. Comme quelqu'un l'a dit, vous pouvez le vérifier sur CPAN Testeurs, ou souvent simplement en lisant la documentation du module ou tout simplement de l'essayer.

Vous avez sélectionné l'utilisation de la queue de l'utilitaire de votre choix de réponse, mais c'est probablement à être plus de maux de tête sur Windows Fichier::Queue.