Jak odczytywać tylko pierwszy wiersz pliku

Question

Od jakiegoś czasu googlowałem, ale nie mogę znaleźć funkcji, którą odczytałem w pierwszym wierszu pliku.

Potrzebuję przeczytać pierwszą linię pliku tekstowego i wyodrębnić z niej datę.

nowość w Perlu.

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

... nowoczesny i popularną alternatywą:

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

Aby uzyskać więcej informacji https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

Uwaga: od ->lines zwraca listę, nazywając go bez nawiasów wokół $firstline zostanie przypisana liczba linii, które zostały odczytane z filename.txt: 1 (lub 0, jeśli jest pusty).