Perl数组值以不同的行显示，而不使用循环

有谁能告诉我，在不使用循环的情况下，如何在不同的行中打印数组的值

#!/usr/bin/perl -w

my @a = ('Test1','Test2','Test3');
print "@a";# output like **Test1 Test2 Test3** but i want **Test2 in next line and Test3 next to next line**

有可能吗？

您可以将$，特殊变量设置为要分隔列表元素的任何变量。这应该满足您的要求：

$, = "\n";
my @a = ('Test1','Test2','Test3');
print @a;

可以将$，特殊变量设置为要分隔列表元素的任何变量。这应该满足您的要求：

$, = "\n";
my @a = ('Test1','Test2','Test3');
print @a;

您可以设置$variable

 $" = "\n";

这样做可能更好

{
     local $" = "\n";
     print "@ar";
}

编辑：

根据报告：

$或可选的$LIST_分隔符指定当数组插入双引号字符串时，要放在各个元素之间的字符串，对于您想说的情况：

print "@ar";

 print @ar;

$，或可选的$OUTPUT\u FIELD\u分隔符指定要在打印列表时放置在各个元素之间的字符串。它最初是空的。您可以为您想说的情况设置$：

print "@ar";

 print @ar;

您可以设置$variable

 $" = "\n";

这样做可能更好

{
     local $" = "\n";
     print "@ar";
}

编辑：

根据报告：

$或可选的$LIST_分隔符指定当数组插入双引号字符串时，要放在各个元素之间的字符串，对于您想说的情况：

print "@ar";

 print @ar;

$，或可选的$OUTPUT\u FIELD\u分隔符指定要在打印列表时放置在各个元素之间的字符串。它最初是空的。您可以为您想说的情况设置$：

print "@ar";

 print @ar;

您只需执行以下操作：

print join("\n", @ar);

您只需执行以下操作：

print join("\n", @ar);

使用映射函数

print@array=map{$\n}@a

使用映射功能

---

print@array=map{$\n}@a

这只适用于传递给print@a而不是单个字符串的多个元素。这只适用于传递给print@a而不是单个字符串的多个元素。