Perl: содержимое файла в скалярную переменную

Question

У меня возникают проблемы, как это сделать:

$contents = do { local $/; <SEQ> }; 
$contents =~ "s/\n/ /g"; 
print $contents; 

Я хочу, чтобы объединить все строки файла в один. Однако это не работает ...

Любая идея, что происходит с моим кодом?

спасибо.

Answer 1

Вы можете использовать File::Slurp модуль:

use File::Slurp qw/read_file/; 
my $text = read_file('filename') ; 
$text =~ s/\n/ /g; 
print $text; 

Если вы не хотите использовать модуль, вы можете попробовать это:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $text; 
open my $fh, "<", "./alarm.pl" or die $!; 
{ 
    local $/;     # enable localized slurp mode 
    $text = <$fh>; 
} 
close $fh; 

$text =~ s/\n/ /g; 
print $text; 

Answer 2

удалить кавычки вокруг регулярного выражения

$contents = do { local $/; <SEQ> }; 
$contents =~ s/\n/ /g; 
print $contents; 

Answer 3

Самый простой способ, вероятно, Perl6::Slurp модуль:

use Perl6::Slurp; 
$contents = slurp \*SEQ;