如何将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 ); 

    }
}

您采取的方法取决于您要完成的任务。

Answer 3

@arr = ("1","2","3") ;
my $arr = "@arr" ;
print "$arr";

Answer 4

您实际上可以使用标量变量作为文件句柄：

my $bigbuffer;
my $f;
open $f, ">", \$bigbuffer; # opens $f for writing into the variable $bigbuffer
# do whatever prints fwrites etc you want here