Ü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 progdoc (2220 Punkte) - 12.08.2012 um 01:21 Uhr

Perl-Code

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

sub reverse_arrays {
   my @returned ;
   foreach my $arrayref ( @_ ) {
      @{$arrayref} = reverse @{$arrayref} ;
      push ( @returned , $arrayref ) ;
   }
   return @returned ;
}

my @cities = ( "Athen" , "Belgrad" , "Berlin" ) ;
my @countries = ( "Griechenland" , "Serbien" , "Deutschland" ) ;
my @numbers = 1..15 ;
my @letters = 'a'..'f' ;
my @reversed = reverse_arrays( \@cities , \@countries , \@numbers ,
      \@letters ) ;
foreach my $arrayref ( @reversed ) {
   map { print "$_\n" } @{$arrayref} ;
}