我有一个小文本文件，我想将它读入一个与文件中完全相同的标量变量（保留行分隔符和其他空格）。
Python 中的等价物类似于
buffer = ""
try:
file = open("fileName", 'rU')
try:
buffer += file.read()
finally:
file.close()
except IOError:
buffer += "The file could not be opened."
这是为了简单地在网页上重新显示文件的内容，这就是为什么我的错误消息会进入我的文件缓冲区的原因。
【问题讨论】：
my $filename = 'file.txt';
open( FILE, '<', $filename ) or die 'Could not open file: ' . $!;
undef $/;
my $whole_file = <FILE>;
我会本地化更改：
my $whole_file = '';
{
local $/;
$whole_file = <FILE>;
}
【讨论】：
作为亚历克斯所说的替代方案，您可以install File::Slurp 模块（来自命令行的cpan -i File::Slurp）并使用它：
use File::Slurp;
# Read data into a variable
my $buffer = read_file("fileName");
# or read data into an array
my @buffer = read_file("fileName");
请注意，这个dies（嗯...croaks，但这只是从模块中调用 die 的正确方法）出现错误，因此您可能需要在 eval 块中运行它以捕获任何错误。
【讨论】：
如果我附近没有Slurp 或Perl6::Slurp，那么我通常会选择....
open my $fh, '<', 'file.txt' or die $!;
my $whole_file = do { local $/; <$fh> };
【讨论】：
讨论了读取文件here的各种方法。
【讨论】：
我没有足够的声誉来发表评论，所以我很抱歉再次发帖。
@Harold Bamford：对于 Perl 程序员来说，$/不应该是一个不起眼的变量。初学者可能不知道它，但他或她应该学习它。由于上面 hackingwords 链接的文章中所述的原因，join 方法是一个糟糕的选择。以下是文章的相关引述：
这不必要地将输入文件分成几行（join 为 提供了一个列表上下文），然后再次连接这些行。这个习语的原始编码器显然从未读过 perlvar 并学会了如何使用 $/ 来允许标量 slurping。
【讨论】：
你可以这样做：
$data_file="somefile.txt";
open(DAT, $data_file);
@file_data = <DAT>;
close(DAT);
这将为您提供数组中的文件内容，您可以将其用于您想要的任何内容，例如，如果您想要每一行，您可以执行以下操作：
foreach $LINE (@file_data)
{
dosomethingwithline($LINE);
}
完整的用法示例：
my $result;
$data_file = "somefile.txt";
my $opened = open(DAT, $data_file);
if (!$opened)
{
$result = "Error.";
}
else
{
@lines = <DAT>;
foreach $LINE (@lines)
{
$result .= $LINE;
}
close(DAT);
}
然后您可以根据需要使用$result。注意：此代码未经测试，但它应该给你一个想法。
【讨论】：
我会像这样调整 draegtun 的答案，以使其完全按照要求进行：
my $buffer;
if ( open my $fh, '<', 'fileName' ) {
$buffer = do { local $/; <$fh> };
close $fh;
} else {
$buffer = 'The file could not be opened.';
}
【讨论】：
只需将所有行连接成一个字符串：
open(F, $file) or die $!;
my $content = join("", <F>);
close F;
（之前建议使用 join "\n" 但这会添加额外的换行符。每行在读取时已经在其末尾有一个换行符。）
【讨论】：