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

[darkbread]

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

para2

para3


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

[shierji]

UTFG:
http://stackoverflow.com/questions/3154144/perl-how-do-i-read-all-lines-from-a-file-and-print-as-one-line-of-text

[xss]

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

[cfy]

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

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

[ltux]

Perl 官方文档
Perl FAQ: How can I read in an entire file all at once?
http://perldoc.perl.org/perlfaq5.html#How-do-I-print-to-more-than-one-file-at-once%3f

[ltux]

贴错。
http://perldoc.perl.org/perlfaq5.html#How-can-I-read-in-an-entire-file-all-at-once%3f

[twl007]

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