perl - 配列の配列を挿入 perl

Question

私は配列の配列を持っています

@data = [["Hi", "Hello"],["Apple", "Orange"]];

そして、新しい配列を挿入する必要があります

@a = ["a", "b"];

配列 @data が次のようになることを望みます

@data = [["Hi", "Hello"],["Apple", "Orange"], ["a", "b"]];

どうやってやるの？

Answer 1

入力するとき

[ "foo", "bar", "base" ]

これは単純な配列ではなく、配列への参照です。

my $ref = [ "foo", "bar", "base" ];
print $ref;

例による表示:

ARRAY(0x1d79cb8)

この単純なリストには、単純な配列が@array割り当てられます。

my @array = ( "foo", "bar", "base" )

まだ参照を使用しています：

use Data::Dumper;

# Using $array_ref to store the reference.
# There's no reason to use an @array to store a
# memory address string...
$array_ref = [["Hi", "Hello"],["Apple", "Orange"]];

# Pushing in the dereferenced array ref
push @$array_ref,  ["a", "b"];

# Let's the doctor take a look in this body
print Dumper $array_ref;

出力:

$VAR1 = [
          [
            'Hi',
            'Hello'
          ],
          [
            'Apple',
            'Orange'
          ],
          [
            'a',
            'b'
          ]
        ];

あなたが期待しているようですね。

---

perldoc perlreftutを参照してください