perl foreach 把数组中的字符串 通过join方法连接起来

你可以使用Perl中的join函数将数组中的字符串连接起来，然后使用foreach循环遍历数组。下面是一个示例代码：

#!/usr/bin/perl

use strict;
use warnings;

my @arr = ("hello", "world", "this", "is", "a", "test");
my $str = join(" ", @arr);

foreach my $elem (@arr) {
    print("$elem ");
}
print("\n");

print("$str\n");

输出结果为：

hello world this is a test 
hello world this is a test

在这个示例中，我们首先使用join函数将数组@arr中的元素连接起来，使用空格作为分隔符，然后将结果存储在变量$str中。接下来，我们使用foreach循环遍历数组@arr中的元素，并将它们打印出来。最后，我们打印出变量$str，以检查连接结果是否正确。