nộp đọc vào biến trong Perl

Question

thể trùng lặp:
What is the best way to slurp a file into a string in Perl?

là mã này một cách tốt để đọc nội dung của một tập tin vào một biến trong Perl? Nó hoạt động, nhưng tôi tò mò nếu có một thực hành tốt hơn tôi nên sử dụng.

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

Answer 1

Tôi nghĩ thực tế phổ biến là một cái gì đó như thế này:

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

Sử dụng 3 lập luận open là an toàn hơn. Sử dụng tập tin xử lý như biến là làm thế nào nó nên được sử dụng trong Perl hiện đại và sử dụng local $/ khôi phục giá trị ban đầu của $/ vào cuối khối, thay vì mã cứng của bạn \n.

Answer 2

Lưu ý rằng nếu bạn đang ở trong một môi trường nơi lắp đặt các module là có thể, bạn có thể muốn sử dụng IO::All:

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

Một số các khả năng nhận được một chút điên rồ, nhưng họ cũng có thể khá hữu ích.

Answer 3

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