Comment puis-je stocker le contenu entier d'un tableau Perl dans une variable scalaire?

Question

Comment puis-je stocker le contenu entier d'un tableau dans une variable scalaire. par exemple:

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

Cela fonctionne très bien pour les handles de fichiers, mais je besoin de cela pour un tableau.

Answer 1

Utilisez join.

my $str = join '', @array; 

Answer 2

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

Answer 3

Vous pouvez réellement utiliser une variable scalaire comme descripteur de fichier:

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

Answer 4

Vous pouvez également prendre une référence au tableau:

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

my $scalar = \@array; 

foo($scalar); 

sub foo { 
    my $array_ref = shift; 

    for my $f (@$array_ref) { 

     do_something($f); 

    } 
} 

Quelle approche vous prenez vraiment dépend de ce que vous essayez d'accomplir.