PERL...ayuda....

[rodrmora79]

Necesito leer la ultima linea de un archivo X...

favor ayudaaaaaa...


gracias

[kidd]

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