问下 perl 怎么读取整个文件里的内容（包括所有换行）？

This topic created in 3496 days ago, the information mentioned may be changed or developed.

比如我有一个 data.txt ，内容里有若干换行，比如：
para1

para2

para3

我想把整个文本保存到变量里，可是我用 open 时，一遇到换行就返回了，只能得到 para1 。

6 replies • 2016-11-01 04:12:57 +08:00

shierji

Oct 31, 2016

xss

Oct 31, 2016

open F,'<','./lsmod.log' or die('open failed');
@content = <F>;

cfy

Oct 31, 2016

``` Perl
use File::Slurp qw/read_file/;

my @contents = read_file($file_path);
```

ltux

Oct 31, 2016

ltux

Oct 31, 2016

twl007

Nov 1, 2016

while (<>) {
push(@content, $_);
}