如何将Perl数组的全部内容存储到标量变量？

Question

如何将数组的全部内容存储到标量变量.例如:

my $code = do { local $/; <FILE HANDLE>; };

这适用于文件句柄,但我需要这个数组.

Answer 1

使用join.

my $str = join '', @array;

Answer 2

您还可以参考数组:

my @array = 'a'..'z';

my $scalar = \@array;

foo( $scalar );

sub foo {
    my $array_ref = shift;

    for my $f ( @$array_ref ) {

       do_something( $f ); 

    }
}

你采取哪种方法取决于你想要实现的目标.