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

my %uebergabe = (
	data	=> {
		1	=> {
			1	=> 'aaron',
			2	=> 'suppe',
			3	=> 10,
		},
		2	=> {
			1	=> 'aaron',
			2	=> 'zander',
			3	=> 20,
		},
		3	=> {
			1	=> 'hannes',
			2	=> 'zander',
			3	=> 20,
		},
	},
	art				=> ['a','a','n'],	# Art der Spalte a=Alpha oder n=Nummer
	sortierprio		=> [3,2,1],			# Nummer der Spalte in der Reihenfolge der Sortierung
	sortierricht	=> [1,1,1],			# Sortierrichtung 0=abwärts/rückwärts oder 1=aufwärts/vorwärts
);
tabellenhandler(\%uebergabe);

###############################################################################

sub tabellenhandler {
	my ($input) = @_;
	foreach my $zeile (
		sort {
			my $return = 0;
			my $spalte = -1;
			while (!$return && $spalte < scalar @{$input->{sortierprio}}) {
				$spalte ++;
				my $vergleich_spalte = $input->{sortierprio}[$spalte];
				if ($input->{sortierricht}[$vergleich_spalte - 1]) {
					if ($input->{art}[$vergleich_spalte - 1] eq 'n') {
						$return = $input->{data}{$a}{$vergleich_spalte} <=> $input->{data}{$b}{$vergleich_spalte};
					}
					else {
						$return = $input->{data}{$a}{$vergleich_spalte} cmp $input->{data}{$b}{$vergleich_spalte};
					}
				}
				else {
					if ($input->{art}[$vergleich_spalte - 1] eq 'n') {
						$return = $input->{data}{$b}{$vergleich_spalte} <=> $input->{data}{$a}{$vergleich_spalte};
					}
					else {
						$return = $input->{data}{$b}{$vergleich_spalte} cmp $input->{data}{$a}{$vergleich_spalte};
					}
				}
			}
			$return;
		}
		keys %{$input->{data}}
	) {
		print "Zeile:";
		foreach my $spalte (
			sort {$a <=> $b}
			keys %{$input->{data}{$zeile}}
		) {
			print " - ".$input->{data}{$zeile}{$spalte};
		}
		print "\n";
	}
}