Verwenden von Join zum Verketten von Array-Werten

Question

Ich habe Array-Werte, die vom SQL-Objekt zurückgegeben werden.

my @keys = $db_obj->SelectAllArrayRef($sql); 
print Dumper @keys; 

gibt

$VAR1 = [ [ '8853' ], [ '15141' ] ]; 

I String aus diesem Array erstellen müssen: 8853, 15141.

my $inVal = join(',', map { $_->[0] }, @$keys); 

my $inVal; 
foreach my $result (@$keys){ 
    $inVal .= $result->[0]; 
} 

my $inVal = join(',', @$keys); 

Wert, den ich bekomme, ist ARRAY(0x5265498),ARRAY(0x52654e0). Ich denke seine Bezugnahme auf das Array. Irgendeine Idee, was fehlt mir hier?

Answer 1

Nicht-Arrays passieren zu Dumper; es führt zu einer verwirrenden Ausgabe. $VAR1 ist kein Dump von @keys, es ist ein Dump von $keys[0]. Stattdessen sollten Sie

print(Dumper(\@keys)); 

Diese

Sie wollen gegeben hätte

$VAR1 = [ [ [ '8853' ], [ '15141' ] ] ]; 

Der Code getan haben, ist

join ',', map { $_->[0] }, @{ $keys[0] }; 

---

Das heißt, es scheint, dass ->SelectAllArrayRef gibt einen Verweis auf das Ergebnis, und so sollte es wie folgt heißen:

my $keys = $db_obj->SelectAllArrayRef($sql); 

Dazu

print(Dumper($keys)); 

Ausgänge

$VAR1 = [ [ '8853' ], [ '15141' ] ]; 

Und Sie können Sie in Ihrer Frage verwendet, eine der beiden Methoden.

join ',', map { $_->[0] }, @$keys; 

Answer 2

Die erste Version sollte für Sie arbeiten:

my $arr = [ [ '8853' ], [ '15141' ] ]; 
my $values = join(',', map { $_->[0] } @$arr); 
print $values . "\n"; 

8853,15141