Opened by SCORRPiO at 2014-02-17 17:01
User since
2014-02-18
13 Artikel
BenutzerIn
2014-02-18
13 Artikel
BenutzerIn
hab deinen 2. code (das mit Array of Hash) ausprobiert...
und bekomme folgende ausgabe
Wenn ich aber in zeile 45 und 51 jeweils die 1 zur einer 0 ändere klappt es ;)
da er von 0 anfängt zu zahlen statt von 1 (IT halt)
und bekomme folgende ausgabe
Code: (dl
)
1
2
3
4
5
6
7
8
Datenbank Verwaltung
Was möchten Sie tun?
1) Daten eintragen
2) Daten ändern
3) Programm verlassen
1
Tragen Sie Daten ein.
Wenn ich aber in zeile 45 und 51 jeweils die 1 zur einer 0 ändere klappt es ;)
Code: (dl
)
1
2
printf "%2d) %s\n", $_, $menu[$_]->{label} for 0 .. $#menu;
if ( $input !~ m/\A\d+\z/ || $input > $#menu || $input < 0 ) {da er von 0 anfängt zu zahlen statt von 1 (IT halt)
Linux User || Perl 5.14