perl 如何将文件内容读到一个标量中

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

将文件读入一个列表中很简单，如下：

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 }