perl - 使用 perl __DATA__ 将其值分配给变量

Question

我正在尝试在脚本中使用文件句柄DATA，将值分配给变量，当它打印时它只打印和空字符串。

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

__DATA__
ab cd ef gh ij

Answer 1

如果您有不止一行__DATA__，您可能需要使用“slurp”（将 的全部内容读<DATA>入一个变量）：

my $str = do { local $/ = undef; <DATA> };
print "$str\n";
__DATA__
ab cd
ef gh
i
j