joinを使用して配列の値を連結する

Question

SQLオブジェクトから返される配列値があります。 8853, 15141：

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

は、私はこの配列から文字列を作成する必要が

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

できます。

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

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

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

値はARRAY(0x5265498),ARRAY(0x52654e0)です。私はその配列への参照を考える。私はここで何が分からないのでしょうか？

Answer 1

Dumperに配列を渡してはいけません。それは混乱する出力につながります。 $VAR1は@keysのダンプではなく、$keys[0]のダンプです。代わりに、あなたは

print(Dumper(\@keys)); 

これは、あなたが望むのコードが、->SelectAllArrayRefがへの参照を返すように見える、と述べ

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

---

ある

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

を与えているだろうがやるべきその結果、次のように呼び出す必要があります。

このために

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

、

print(Dumper($keys)); 

出力

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

そして、あなたは、あなたの質問に使用される方法のいずれかを使用することができます。

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

Answer 2

最初のバージョンは、あなたのために働く必要があります。

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

8853,15141