Justo has dado con la solución de en medio... es decir... no has encontrado la solución...
Una manera es empezar como has hecho tu:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
open FICHERO
, "<t.txt" or die "No se pudo localizar el archivo... \n";
my @database = <FICHERO>;
close(FICHERO
);Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
pero, entonces, si tienes todo el fichero leído en
@database, entonces la última línea está en
$database[-1].
Y la otra forma, la comentada antes es ir leyendo línea a línea:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
my $linea;
open FICHERO
, "<t.txt" or die "No se pudo localizar el archivo... \n";
while ( $linea = <FICHERO> ) {
}
close(FICHERO
);
print $linea;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Darse cuenta de que
$linea está definida fuera del bucle, para que podamos referirnos a ella también fuera, después del bucle.