file letto nella variabile in Perl

Question

Eventuali duplicati:
What is the best way to slurp a file into a string in Perl?

E 'questo codice un buon modo per leggere il contenuto di un file in una variabile in Perl? Funziona, ma sono curioso di sapere se c'è una pratica migliore che dovrei usare.

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

Answer 1

Penso pratica comune è qualcosa di simile:

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

Utilizzando 3 argomento open è più sicuro. L'utilizzo dell'handle di file come variabile è come dovrebbe essere usato nel moderno Perl e usando local $/ ripristina il valore iniziale di $/ alla fine del blocco, invece del codice originale \n.

Answer 2

Si noti che se ti trovi in ​​un ambiente in cui l'installazione dei moduli è possibile, si consiglia di utilizzare IO::All:

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

Alcune delle possibilità ottenere un po 'folle, ma possono anche essere molto utile.

Answer 3

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