Perl Array值显示在不同的行中而不使用循环

Question

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

#!/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**

可能吗？

Answer 1

你可以这样做:

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