使用perl __DATA__将其值赋给varialbe

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