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.
open my $file, '<', "filename.txt";
my $firstLine = <$file>;
close $file;
open THEFILE, "<filename.txt";
$first_line = <THEFILE>;
close THEFILE;
open( my $file, "x.txt");
$line = <$file>;
... 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).