arrays - perl qw() 函数分配行而不是单词

Question

在 Perl 中

@array=qw/this is a line
          and a new one
          then a new one
          ......     
             ........./;

将导致将每个“单词”分配给@array 变量。我怎样才能将每个“行”分配给@array 变量，即 $a[0]="this is a line" 而不是 $a[0]="this"

Answer 1

这是一种方法：

my @array = split / *\n */,
            qq/this is a line
               and a new one
               and another/;