如何只读取文件的第一行

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;