Как читать только первую строку файла

Я искал время для поиска в Интернете, но не могу найти функцию для чтения только первой строки файла.

Мне нужно прочитать первую строку текстового файла и извлечь из него дату.

new для perl.

Ответ 1

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

Ответ 2

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

Ответ 3

... современная и популярная альтернатива:

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

Для получения дополнительной информации https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

Примечание:, поскольку ->lines возвращает список, вызывая его без скобок вокруг $firstline, ему будет присвоено количество строк, которые были прочитаны из filename.txt: 1 (или 0, если он пуст).

Ответ 4

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