如何只读取文件的第一行

Posted 2023-03-24

【中文标题】如何只读取文件的第一行

【英文标题】：How to read only the first line of a file

【发布时间】：2011-10-25 02:08:03

【问题描述】：

我已经在谷歌上搜索了一段时间，但我找不到只读取文件第一行的函数。

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

perl 新手。

【参考方案1】：

open my $file, '<', "filename.txt"; 
my $firstLine = <$file>; 
close $file;

【参考方案2】：

open THEFILE, "<filename.txt";
$first_line = <THEFILE>;
close THEFILE;

【讨论】：

你应该使用词法文件句柄和三个参数open。

【参考方案3】：

open( my $file, "x.txt");
$line = <$file>;

【参考方案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 如果为空）。

【讨论】：

您可能想要 chomp $firstline; 或者该值的末尾可能有一个换行符，这可能不是您想要的。