web-dev-qa-db-fra.com

Comment lire uniquement la première ligne d'un fichier

Je recherche sur Google depuis un certain temps, mais je ne trouve pas de fonction lisant juste la première ligne d'un fichier.

J'ai besoin de lire la première ligne d'un fichier texte et d'en extraire la date.

nouveau à Perl.

31
Lukasz Madon
open my $file, '<', "filename.txt"; 
my $firstLine = <$file>; 
close $file;
56
wespiserA
open THEFILE, "<filename.txt";
$first_line = <THEFILE>;
close THEFILE;
7
Sean Bright
open( my $file, "x.txt");
$line = <$file>;
1
Jakub M.

... une alternative moderne et populaire:

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

Pour plus d'informations https://metacpan.org/pod/Path::Tiny#lines-lines_raw-lines_utf8

Remarque: depuis ->lines renvoie une liste, l'appelant sans les crochets autour de $firstline on lui attribuera le nombre de lignes lues depuis filename.txt: 1 (ou 0 s'il est vide).

0
illy