perl 如何将文件内容读到一个标量中
将文件读入一个列表中很简单，如下：
1 open(IN, $file);
2 @file = <IN>;
但如何将文件读入到一个标量中？
最简单的方法是设置perl内置变量$/，如下：
1 #!/usr/bin/perl -w
2 use strict;
3 open my $fh, '<', 'file.txt' or die $!; #系统或库调用fail时会设置$!
4 my $content = do { local $/; <$fh> };
或者也可以用undef：
1 my $file = "file.txt";
2 open (IN, "<$file") || die "Cannot open file: $file";
3 undef $/; #local $/;
4 my $content = <IN>;
5 close IN;
这里关键是变量$/.
$/的值默认是换行符，因此一般情况下我们使用<>读取文件时都是一行一行读取的，使用local或者undef将使得读取文件直到文件结尾。如下：
1 local $/; # enable "slurp" mode
2 local $_ = <FH>; # whole file now here
一个完整应用的例子：
1 my $content;
2 if ( open my $fh, '<', 'file.txt' ) {
3 $content = do { local $/; <$fh> };
4 close $fh;
5 } else {
6 $content = 'The file could not be opened.';
7 }
========================================
关于$/还有一点值得补充：
设置 $/ 为一个整数的引用，包含整数的标量，或者可以转换为整数的标量（reference to an integer, scalar containing an integer, or scalar that's convertible to an integer），将会从文件中读取不超过该整数字节的数据，比如：
1 local $/ = \32768; # or \"32768", or \$var_containing_32768
2 open my $fh, "<", $myfile or die $!;
3 local $_ = <$fh>;
将从文件读取不超过 32768 bytes的数据。
另外需要注意的是$/的值是一个字符串，不是一个正则表达式。
关于$\以及其他变量，可参考perldoc perlvar
========================================
其他的方法还有：
1.使用join函数
1 open(IN, $file) or die $!;
2 my $content = join("", <IN>);
3 close IN;
2.使用列表转换成标量
一个完整的用法的例子：
1 my $content;
2 my $opened = open(IN, $file);
3 if (!$opened) {
4 $content = "Error.";
5 } else {
6 @lines = <IN>;
7 foreach $LINE (@lines) {
8 $content .= $LINE;
9 }
10 close(IN);
11 }
