79 lines
2.0 KiB
Perl
79 lines
2.0 KiB
Perl
#!/bin/perl
|
|
|
|
# Key: Shortcut im Menü
|
|
# Value: Array aus Menüpunkttext und Aktion
|
|
# Aktion kann weiterer Menüpunkt sein, oder Funktion die aufgerufen werden soll
|
|
# Für Menüpunkt muss ein Hash mit diesem Namen angelegt werden, der ein weiteres
|
|
# Menü beschreibt.
|
|
# Für Funktion muss das erste Zeichen eine Raute (#) sein. Eine Funktion mit dem
|
|
# entspr. Namen muss angelegt sein.
|
|
# Bei jedem Menüpunkt kann eine Beschreibung angegeben werden, dazu ist bei dem entspr.
|
|
# Menühash ein Key 'desc' mitanzulegen. Der Value ist ein Skalar der den Menünamen enthält.
|
|
|
|
|
|
# Beispielkonfig mit Aufruf
|
|
#$haupt{'1'} = ['Adressen', 'adressen'];
|
|
#$haupt{'2'} = ['Sagem', 'sagem'];
|
|
#$haupt{'3'} = ['Nokia', 'nokia'];
|
|
#$haupt{'e'} = ['Ende', '#bye'];
|
|
#$haupt{'desc'} = "Hauptmenü";
|
|
|
|
#$adressen{'1'} = ['Suchen', '#adr_suchen'];
|
|
#$adressen{'z'} = ['Zurück', 'haupt'];
|
|
#$adressen{'desc'} = "Adressen";
|
|
|
|
#$sagem{'z'} = ['Zurück', 'haupt'];
|
|
#$sagem{'desc'} = "Sagem";
|
|
|
|
#$nokia{'z'} = ['Zurück', 'haupt'];
|
|
#$nokia{'desc'} = "Nokia";
|
|
|
|
#menue(\%haupt);
|
|
#use Win32::Console::ANSI;
|
|
#use Term::ANSIScreen qw/:color :cursor :screen/;
|
|
|
|
package menue;
|
|
|
|
sub zeigen {
|
|
($me) = @_;
|
|
%menu = %$me;
|
|
|
|
do {
|
|
#print "\e[2J";
|
|
my @subst = (['ä','ae'],['ö','oe'],['ü','ue'],['ß','ss'],['Ä','Ae'],['Ö','Oe'],['Ü','Ue']);
|
|
foreach (@subst) {
|
|
$menu{'desc'} =~ s/$_->[0]/$_->[1]/g;
|
|
}
|
|
|
|
print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n----- $menu{'desc'} -----\n\n";
|
|
foreach my $mp (sort keys %menu) {
|
|
if ($mp eq 'desc') { next; }
|
|
foreach (@subst) {
|
|
$menu{$mp}->[0] =~ s/$_->[0]/$_->[1]/g;
|
|
}
|
|
print " $mp $menu{$mp}->[0]\n\n";
|
|
}
|
|
|
|
print "\nAuswahl:";
|
|
$auswahl = <STDIN>;
|
|
chomp $auswahl;
|
|
$ok=0;
|
|
foreach (sort keys %menu) {
|
|
if ("$_" eq "$auswahl") {
|
|
$ok = 1;
|
|
}
|
|
}
|
|
} while (!$ok);
|
|
|
|
$para = "$menu{$auswahl}->[1]";
|
|
if ($para =~ /#/) {
|
|
$para =~ s/#//,$para;
|
|
$fkt="main::$para";
|
|
&$fkt;
|
|
}
|
|
else {
|
|
menue::zeigen("$para");
|
|
}
|
|
}
|
|
|
|
1; |