如何只读取文件的第一行

Question

我一直在谷歌搜索一段时间，但我找不到一个函数只读取文件的第一行。

我需要阅读文本文件的第一行并从中提取日期。

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

......一个现代而受欢迎的选择：

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

了解更多信息https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

注意：，因为->lines正在返回一个列表，在$firstline周围没有括号的情况下调用它，它将被分配从{{1}读取的行数}：1（如果它为空，则为0）。