使用perl _;数据_;将其值赋给变量

我试图在脚本中使用filehandle数据，将值分配给变量，当它打印时，只打印空字符串

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);  
my $str = <DATA> ;
print "$str\n" ;

__DATA__
ab cd ef gh ij

---

如果数据中有多行，可能需要使用slurp将的全部内容读入变量：

my$str=do{local$/=unde；}； 打印$str\n； __资料__ ab cd ef gh 我 J

---

该代码打印ab cd ef gh ij，后跟两个换行符，而不是空字符串。是的，确实如此-我不知道以前发生了什么。可能是原始代码中ab cd ef gh ij行之前的数据后面有一个额外的空行，导致了您描述的问题。由于您在标量上下文中读取数据而不操纵$/，因此您只获得第一行数据。如果第一行恰好是空的，那么除了一些空行之外，您将看不到任何可见的输出。或者只是我的$str=join，我使用的数据集有多行。非常感谢。