Perl读取文本文件直到第一个换行符

Question

我试图将文本文件读入perl中的变量，但它只读取文本文件直到第一个换行符。（在句子末尾输入） 这是我的代码：

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use v5.16; 

open(FILE,"<:encoding(UTF-8)", 'data/text.txt') or die "Can't read file [$!]\n";  
chomp(my $document = (<FILE>)); 
close (FILE);

感谢您的帮助！

Answer 1

默认情况下，文件是逐行读取的，您必须将input record separator变量$/更改为undef才能使其进入slurp模式，

my $document = do { local $/; <FILE> };