Discussion :

[ouinih]

Bonjour,

Je cherche à lire un fichier en une seule fois en pel.

Merci

[PerlPicker]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
undef $/;
 
open my $fh,"<","filename"
    or die "Unable to open file: filename ($!)";
 
my $fileContent=<$fh>;

Undef $/ dit qu'il n'y a pas de séparateur de ligne et donc tout le fichier est lu d'un coup.

[iblis]

Il est hautement recommandé de localiser $/, sinon le changement s'applique aux appels de modules etc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $content = do { local $/; <$fh> }

(grâce au do { ... } le local ne s'applique qu'au bloc { } et donc même pas à tout le main)