So erstellen Sie eine Kopie eines verschachtelten Array in einem Array Array-Struktur

Question

Ich versuche, eine Kopie eines verschachtelten Array zu erstellen, und es scheint, dass ich weiterhin einen Verweis mit meinen Versuchen machen.

Um genauer zu sein Ich versuche, ein Array von Arrays zu haben, wobei jedes Sub-Array auf dem vorherigen Array aufbaut. Hier ist mein Versuch:

#!/usr/bin/perl -w 
use strict; 
use warnings; 

my @aoa=[(1)]; 
my $i = 2; 
foreach (@aoa){ 
    my $temp = $_;#copy current array into $temp 
    push $temp, $i++; 
    push @aoa, $temp; 
    last if $_->[-1] == 5; 
} 
#print contents of @aoa 
foreach my $row (@aoa){ 
    foreach my $ele (@$row){ 
    print "$ele "; 
    } 
    print "\n"; 
} 

Meine Ausgabe ist:

1 2 3 4 5 
1 2 3 4 5 
1 2 3 4 5 
1 2 3 4 5 
1 2 3 4 5 

Und ich will/erwarten, dass es sein:

1 
1 2 
1 2 3 
1 2 3 4 
1 2 3 4 5 

ich meine Probleme gehe davon liegt bei, wie ich bin Zuweisen von $ temp, lassen Sie mich bitte wissen, wenn dies nicht der Fall ist. Jede Hilfe wird geschätzt.

Answer 1

Erstellen Sie ein neues Array mit my, kopieren Sie den Inhalt des zu erstellenden Arrays, und fügen Sie ihn hinzu.

halten sie so nah wie möglich an Ihrem Code

foreach (@aoa) { 
    last if $_->[-1] == 5; 
    my @temp = @$_;   #copy current array into @temp 
    push @temp, $i++; 
    push @aoa, \@temp; 
}