Perl:将内容文件转换为标量变量

Question

我这样做有问题:

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

我想将文件的所有行加入一个.但是,它不起作用......

知道我的代码发生了什么吗？

谢谢.

Answer 1

删除正则表达式周围的引号

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