Cách đọc dòng đầu tiên của một tệp

Question

Tôi đã googling một lúc, nhưng tôi không thể tìm thấy một hàm đọc dòng đầu tiên của một tệp.

Tôi cần đọc dòng đầu tiên của tệp văn bản và trích xuất ngày từ đó.

mới đối với 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

... một sự thay thế hiện đại và phổ biến:

use Path::Tiny; 
(my $firstline) = path('filename.txt')->lines({ count => 1 }); 

Để biết thêm thông https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

Lưu ý: từ ->lines đang trở lại một danh sách, gọi đó là không có dấu ngoặc xung quanh $firstline nó sẽ được chỉ định số dòng đã được đọc từ filename.txt: 1 (hoặc 0 nếu nó trống).