|
|
|
|
Salut,
|
Salut,
#! /usr/bin/perl -w use strict; open FIC, "ligne"; my @ligne = <FIC>; my @ligne10 = (reverse @ligne)[0..9]; print reverse @ligne10; Donc on lit le fichier dans un tableau qui on l'inverse, ensuite on prend une tranche de tableau ( les 10 ligne) en l'inverse de nouveau pour affichage. |