Cómo leer solo la primera línea de un archivo

Question

He estado buscando en Google por un tiempo, pero no puedo encontrar una función en la primera línea de un archivo.

Necesito leer la primera línea de un archivo de texto y extraer la fecha de él.

nuevo en perl.

Answer 1

open my $file, '<', "filename.txt"; 
my $firstLine = <$file>; 
close $file; 

Answer 2

open THEFILE, "<filename.txt"; 
$first_line = <THEFILE>; 
close THEFILE; 

Answer 3

open(my $file, "x.txt"); 
$line = <$file>; 

Answer 4

... una alternativa moderna y popular:

use Path::Tiny; 
(my $firstline) = path('filename.txt')->lines({ count => 1 }); 

Para obtener más información https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

Nota:->lines ya está volviendo una lista, llamándolo sin los corchetes alrededor de $firstline se le asignará el número de líneas que se leyeron desde filename.txt: 1 (o 0 si está vacío).