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

V2EX = way to explore

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

现在注册

已注册用户请登录

这是一个创建于 3367 天前的主题，其中的信息可能已经有所发展或是发生改变。

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

para2

para3

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

6 条回复 • 2016-11-01 04:12:57 +08:00

shierji

2016 年 10 月 31 日

xss

2016 年 10 月 31 日

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

cfy

2016 年 10 月 31 日

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

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

ltux

2016 年 10 月 31 日

ltux

2016 年 10 月 31 日

twl007

2016 年 11 月 1 日

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