Lire un fichier en Perl

Pour lire un fichier en Perl, vous pouvez utiliser l'opérateur `open` pour ouvrir le fichier, puis lire son contenu avec une boucle ou d'autres techniques comme `readline` ou l'opérateur diamant `< >`. Voici un exemple simple de lecture ligne par ligne :

#!/usr/bin/perl
use strict;
use warnings;

# Ouvrir le fichier en lecture seule
my $filename = 'mon_fichier.txt';
open(my $fh, '<', $filename) or die "Impossible d'ouvrir le fichier '$filename' : $!";

# Lire le fichier ligne par ligne
while (my $ligne = <$fh>) {
    print $ligne;
}

# Fermer le fichier
close($fh);

Explication :

- `open(my $fh, '<', $filename)` : ouvre le fichier `mon_fichier.txt` en mode lecture (`<`).
- `while (my $ligne = <$fh>)` : lit le fichier ligne par ligne.
- `close($fh)` : ferme le fichier après la lecture.

Pour lire le fichier en entier d'un coup, vous pouvez faire ainsi :

#!/usr/bin/perl
use strict;
use warnings;

my $filename = 'mon_fichier.txt';
open(my $fh, '<', $filename) or die "Impossible d'ouvrir le fichier '$filename' : $!";

# Lire tout le fichier
my $contenu = do { local $/; <$fh> };

print $contenu;

close($fh);

Dans ce cas, le séparateur de ligne `$/` est localement défini comme `undef` pour lire tout le fichier en une seule fois.

back

Created with ChatGPT