如何只读取文件的第一行

Question

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

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

新的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返回一个列表，称这是没有围绕的括号210将分配从filename.txt：1（或0，如果它是空的）读取的行数。