Array mit Werten auffüllen - #144394 (Allgemeines zu Perl)

sebi85

2011-01-10 10:55

User since
2010-10-27
13 Artikel
BenutzerIn
[default_avatar]

Ich habe da doch nich ein Problem.

Ich möchte folgendes variabel haben:

Code (perl): (dl )

1
2
3

    my @add1=@{$add[0]};
    my @add2=@{$add[1]};
    unshift(@{$arr},\@add1,\@add2);

In diesem Fall werden immer zwei Werte aufgefüllt, es sollen aber 1-unendlich aufgefüllt werden.
Ich hätte jetzt die Arrays dynamisch erzeugt (z. B. @add+$i).
Allerdings ist das nicht die feine Lösung.

Was gibts für Alternativen?

Ich habe jetzt folgendes versucht, leider ohne Erfolg:

Code (perl): (dl )

my @val;
if(...){
for(my $x=0;$x<(@PA_ARRAY_FKT-2);$x++)
        {
                $val[$x] = @{$arr->[$x]};
                print "\n1: val[$x] = ".@{$arr->[$x]}."\n";     
                @add = (\@val);
        }
else
{
for(my $x=0;$x<@add;$x++)
        {
             unshift( @{$arr}, [ @{$add[0]} ], [ @{$add[1]} ]);
        }
}

Last edited: 2011-01-10 11:19:37 +0100 (CET)