Perl: Arrays manipulieren und abändern

Letztens hatte ich das Problem, dass ich in Perl ein Array an Elementen hatte und erst im späteren Programmverlauf Informationen erhalten habe, die zwingend am Anfang des Arrays stehen müssen.

Also musste ich eine Lösung dafür finden, wie ich Elemente an den Anfang eines Arrays hinzufüge und habe ein paar sehr nützliche Funktion kennengelernt.

 

Shift

Ruft man die Shift Funktion auf, wird das erste Element eines Arrays zurückgeliefert und anschließend aus dem Array entfernt. Alle nachfolgenden Elemente des Arrays rücken eine Position nach vorne:

my @arr = ('Hello', 'Wolrd', 'HelloWorld');
my $element = shift @arr;
print "$element\n";     # Hello
print "@arr\n";     # World HelloWorld

 

Unshift

Mit Hilfe der unshift Funktion kann ein Element an den Anfang des Arrays hinzugefügt werden. Alle nachfolgenden Elemente rücken anschließend eine Position nach hinten:

my @arr = ('Hello', 'Wolrd');
unshift @arr, 'HelloWorld';
print "@arr\n"; # HelloWorld Hello World

 

Push

Die Push Funktion fügt ein Element an das Ende des Arrays hinzu:

my @arr = ('Hello', 'World');
push @arr, 'HelloWorld';
print "@arr\n"; # Hello World HelloWorld

 

Pop

Die Pop Funktion liefert das letzte Element des Arrays zurück und entfernt es anschließend aus dem Array:

my @arr = ('Hello', 'Wolrd', 'HelloWorld');
my $element = pop @arr;
print "$element\n";     # HelloWorld
print "@arr\n";    # Hello World

 

Viel Spaß und Erfolg beim manipulieren deiner Arrays 😉