Perl – How to Read a Text File into a Variable – 6 ways to do it

Calendar 15 mars 2010
Development
Perl, File-Handling, Tutorial, Code-Snippet

6 façons de lire un fichier texte dans une variable

Si vous travaillez avec des fichiers volumineux, vous pourriez envisager d’utiliser File::Slurp.
Il est bien plus rapide que la méthode conventionnelle :

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  binmode FILE;
  $string = <FILE>;
  close FILE;
}

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  $string = <FILE>;
  close FILE;
}

open FILE, "myfile" or die "Couldn't open file: $!";
$string = join("", <FILE>);
close FILE;
  
open FILE, "myfile" or die "Couldn't open file: $!";
while (<FILE>) {
 $string .= $_;
}
close FILE;

open( FH, "sample.txt") || die("Error: $!\n");
read(FH, $data, 2000);
close FH;

Le format de la fonction read est :