如何只讀取文件的第一行

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，如果它是空的）讀取的行數。