Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/06/2004, 17:01
kidd
 
Fecha de Ingreso: mayo-2003
Mensajes: 328
Antigüedad: 21 años, 10 meses
Puntos: 0
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
__________________
Uriel Lizama, Perl Developer

Aprende Perl en Perl en Español.

Última edición por kidd; 10/06/2004 a las 17:02