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

V2EX = way to explore

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

现在注册

已注册用户请登录

V2EX 提问指南

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

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

para2

para3

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

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

shierji

2016-10-31 13:31:24 +08:00

xss

2016-10-31 13:34:42 +08:00

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

cfy

2016-10-31 17:21:15 +08:00

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

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

ltux

2016-10-31 17:28:15 +08:00

ltux

2016-10-31 17:29:04 +08:00

twl007

2016-11-01 04:12:57 +08:00

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