arrays - 在 Perl 中将带有空格的字符串推入数组会产生两个数组元素

Question

我正在尝试将字符串元素推送到 Perl 中的数组中。被推送的字符串包含一个空格。这导致数组中有两个元素 - 按空格分隔。

my @filenames;
$filename = "Test Test.test";
push(@filenames, $filename);

while (<@filenames>)
{
        print  "Here: $_\n";
}

这给出了输出

Here: Test

Here: Test.test

虽然我期望输出是：

enter code here这里：测试Test.test

我怎样才能达到预期的输出？

谢谢， 普拉纳夫

Answer 1

my @filenames;
$filename = "Test Test.test";
push(@filenames, $filename);

for (@filenames)
{
    print  "Here: $_\n";
}

这会产生预期的输出。不知道你为什么这样做<@filenames>