ファイルの最初の行のみを読み取る方法

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）。