array i hash

#!/usr/bin/perl

my %hash;
my @array = ('test1','test2','test3','test4');

$hash{'v1'} = 'value1';
@hash{'v2'} = \@array;
$hash{'v3'} = 'value2';

print $hash{'v1'}."\n";

my $value;

foreach $value (@{$hash{'v2'}})
{
    print $value."\n";
}

print $hash{'v3'}."\n";

Og så ville jeg nok også¨

  $hash{'v2'} = \@array;

#!/usr/bin/perl

my %hash;
my @array = ('test1','test2','test3','test4');
my @testArray;

$hash{'v1'} = 'value1';
$hash{'v2'} = \@array;
$hash{'v3'} = 'value2';

$testArray[0] = {%hash};


@array = ('test11','test12','test13','test14');

$hash{'v1'} = 'value1';
$hash{'v2'} = \@array;
$hash{'v3'} = 'value2';

$testArray[1] = {%hash};

print $hash{'v1'}."\n";


my $value;
my %testHash;


##########################################

%testHash = %{$testArray[0]};

foreach $value (@{$testHash{'v2'}})
{
    print $value."\n";
}

##########################################

%testHash = %{$testArray[1]};

foreach $value (@{$testHash{'v2'}})
{
    print $value."\n";
}

##########################################


print $hash{'v3'}."\n";

....................
Problemet med en pointer er, at den altid peger på samme sted.
så værdierne test1, test2, test3 og test4 vil ikke eksistere pga. at de bliever overskrivet af test11 ... test14 (i ovenstående eksempel).
Findes der en mulighed uden at bruge pointer?

$etEllerAndetArray[0] = {%enEllerAndenHash}; # det burde virke

# findes der ikke en mulighed, for at lave det den omvendte vej?
$enEllerAndenHash{'v1'} = {@etEllerAndetArray}; # virker ikke som det skal!?

Umiddelbart ville jeg bare lade være med at bruge samme variabel.

det er ikke muligt.
i scriptet, som jeg vil komme til at skrive, ved jeg ikke hvor mange variabler det er. Skriptet skal være flexibel i dette punkt.

#!/usr/bin/perl

my %hash;
my @array = ('test1','test2','test3','test4');
my @testArray;

$hash{'v1'} = 'value1';
$hash{'v2'} = [@array];
$hash{'v3'} = 'value2';

$testArray[0] = {%hash};


@array = ('test11','test12','test13','test14');

$hash{'v1'} = 'value1';
$hash{'v2'} = [@array];
$hash{'v3'} = 'value2';

$testArray[1] = {%hash};

print $hash{'v1'}."\n";


my $value;
my %testHash;


##########################################

%testHash = %{$testArray[0]};

foreach $value (@{$testHash{'v2'}})
{
    print $value."\n";
}

##########################################

%testHash = %{$testArray[1]};

foreach $value (@{$testHash{'v2'}})
{
    print $value."\n";
}

##########################################


print $hash{'v3'}."\n";

--------------------------------
--------------------------------
$hash{'v2'} = [@array];

det virker.
Mange tak for hjælpen. Husk at skrive svar.

Hvis du ikke skal have en variabel kan du

  $hash{'v2'} = [('test1','test2','test3','test4')];

Men ellers tak, jeg samler slet ikke på point.

ok