Read-Datei in die Variable in Perl

Question

Mögliche Duplizieren:
What is the best way to slurp a file into a string in Perl?

Ist dieser Code eine gute Möglichkeit, den Inhalt einer Datei in eine Variable in Perl zu lesen? Es funktioniert, aber ich bin neugierig, ob es eine bessere Praxis gibt, die ich verwenden sollte.

open INPUT, "input.txt"; 
undef $/; 
$content = <INPUT>; 
close INPUT; 
$/ = "\n"; 

Answer 1

Ich glaube, gängige Praxis, so etwas wie dieses:

my $content; 
    open(my $fh, '<', $filename) or die "cannot open file $filename"; 
    { 
     local $/; 
     $content = <$fh>; 
    } 
    close($fh); 

Mit 3 Argument open sicherer ist. Die Verwendung von Datei-Handle als Variable ist, wie es in modernen Perl verwendet werden sollte und die Verwendung von local $/ stellt den Anfangswert von $/ am Blockende statt Ihrer fest codierten \n wieder her.

Answer 2

Beachten Sie, wenn Sie in einer Umgebung sind, wo Installation der Module möglich ist, Sie IO::All verwenden möchten:

use IO::All; 
my $contents; 
io('file.txt') > $contents; 

Einige der Möglichkeiten ein bisschen verrückt, aber sie können auch ganz nützlich sein.

Answer 3

use File::Slurp; 
my $content = read_file('input.txt') ;