Как я могу хранить все содержимое массива 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