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

V2EX = way to explore

V2EX 是一个关于分享和探索的地方

For Existing Member Sign In

This topic created in 3476 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, $_);
}