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

use feature qw( say );

# Welche Beschriftung soll welche Aktion auslösen
my %dispatch = (
        'Tabelle anzeigen'      => \&show_table,
        'Daten eintragen'       => \&insert_data,
        'Daten aendern'         => \&change_data,
        'Programm verlassen'    => \&exit_programm,
);

# Reihenfolge der Beschriftungen festlegen
my @order = (
        '',                     # dummy, um index 0 zu belegen
        'Tabelle anzeigen',
        'Daten eintragen',
        'Daten aendern',
        'Programm verlassen',
);

# definieren nun die subroutinen für die Aktionen

sub show_table {
        say "Schau, eine Tabelle.\n";
}

sub insert_data {
        say "Tragen Sie Daten ein.\n";
}

sub change_data {
        say "Machen Sie hier Ihre Daten kaputt.\n";
}

sub exit_programm {
        # Aufräumen; DB schließen, etc.
        say "Programm ist zuende.\n";
        exit 0;
}


# Hauptprogramm

while ( 1 ) {
        say "Datenbank Verwaltung\n";
        say "Was möchten Sie tun?";

        # Menue ausgeben
        printf "%2d) %s\n", $_, $order[$_]      for 1 .. $#order;

        # Eingabe lesen und vom Newline befreien
        chomp( my $input = <STDIN> );

        # nur Integer erlaubt; und nur im Bereich von 1 bis $#order (letzter Index in @order)
        if ( $input !~ m/\A\d+\z/ || $input > $#order || $input < 1 ) {
                warn "Eingabe ungueltig.\n";
                redo;
        }
        else {
                # rufe subroutine
                $dispatch{ $order[$input] }->();
        }
}

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

use feature qw( say );


my @menu = (
    { label => 'Tabelle anzeigen',   action => \&show_table,    },
    { label => 'Daten eintragen',    action => \&insert_data,   },
    { label => 'Daten aendern',      action => \&change_data,   },
    { label => 'Programm verlassen', action => \&exit_program,  },

);


# definieren nun die subroutinen für die Aktionen

sub show_table {
	say "Schau, eine Tabelle.\n";
}

sub insert_data {
	say "Tragen Sie Daten ein.\n";
}

sub change_data {
	say "Machen Sie hier Ihre Daten kaputt.\n";
}

sub exit_program {
	# Aufräumen; DB schließen, etc.
	say "Programm ist zuende.\n";
	exit 0;
}


# Hauptprogramm

while ( 1 ) {
	say "Datenbank Verwaltung\n";
	say "Was möchten Sie tun?";

	# Menue ausgeben
	printf "%2d) %s\n", $_, $menu[$_]->{label}	for 1 .. $#menu;

	# Eingabe lesen und vom Newline befreien
	chomp( my $input = <STDIN> );

	# nur Integer erlaubt; und nur im Bereich von 1 bis $#menu (letzter Index in @menu)
	if ( $input !~ m/\A\d+\z/ || $input > $#menu || $input < 1 ) {
		warn "Eingabe ungueltig.\n";
		redo;
	}
	else {
		# rufe subroutine
       $menu[$input]->{action}->();
	}
}