如何只读取文件的第一行

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 它将被分配从 filename.txt 读取的行数：1（如果为空则为 0）。