Übergabe von Array- Referenz an einer Subroutine

3 Lösungen

Anfänger - Perl von Gustl - 06.08.2012 um 23:06 Uhr

Erzeugen Sie eine Subroutine, die eine beliebige Zahl an Referenzen auf Arrays übernimmt, diese Arrays umkehrt und sie dann in der gleichen Reihenfolge, in der sie übernommen wurden, wieder zurückliefert.

Testen Sie die Subroutine mit einem Aufruf mit mindestens 4 Array-Referenzen.

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von Gustl (6560 Punkte) - 25.06.2013 um 20:41 Uhr

Ich habe die übergebenen Referenzen geändert, ohne Rückgabe.

Perl-Code

#!/usr/bin/perl
use strict;
use warnings;
 
my @array1 = (1,2,3,4,5,6,7,8,9,10);
my @array2 = (10,20,30,40,50,60,70,80,90,100);
my @array3 = (100,200,300,400,500,600,700,800,900,1000);
my @array4 = (1000,2000,3000,4000,5000,6000,7000,8000,9000,10000);

reverse_all_arrays(\@array1, \@array2, \@array3, \@array4);

foreach(@array2){ print $_."\n" };

sub reverse_all_arrays{
    @$_ = reverse @$_ for @_;
}