为每个脚本添加一个标准的Perl文件打开功能我有点恼人：
sub openfile{
(my $filename) = @_;
open FILE,"$filename" or die $!;
my @lines = <FILE>;
return @lines;
}
我可以创建一个Perl模块来做到这一点，但是这样很简单，我肯定应该有一个。
我试图找到一种方式来读取一个文本文件到一个数组，我似乎找不到一个Perl模块在那里可以做这个简单的任务…也许我看起来太难了，它已经与标准5.10安装。
最好我相信它会是这样的：
my @lines = Module::File::Read("c:\some\folder\structure\file.txt");
解决方法
你有几个选择，经典做法：
my @array = do {
open my $fh,"<",$filename
or die "could not open $filename: $!";
<$fh>;
};
use IO::All; my @array = io($filename)->slurp;
use File::Slurp; my @array = read_file($filename);
而且可能还有更多，毕竟TIMTOWTDI。