Hola:
Código:
#Abre el archivo:
open(FILE, "archivo.txt");
my @lines = <FILE>;
close(FILE);
@lines = reverse(@lines);
print "$lines[0]"; #Despliega la última linea
También lo podrías hacer de esta manera:
Código:
#Abre el archivo:
open(FILE, "archivo.txt");
my @lines = <FILE>;
close(FILE);
print "$lines[@lines-1]"; #Despliega la última linea
SALUDOS