Hi folks
I am new to perl. this is my first real program in perl.
The program is not doing what i intend it to do.
The problem in nut shell is that:
I expect to see the menu first and then input my choice.
but
the program asks for my choice first and then displays the menu
Please have a look and see what am i doing wrong.
Thanks a ton for your time guys.
code
----------------------------------------------------------
#!/usr/bin/perl
use strict;
use warnings;
sub dispBlanks {
print "\n\n";
}
sub clrScr {
system("clear");
}
sub dispMenu {
clrScr;
print "\n\n=== Student Manage Pro ===\n";
print "1. Display all students\n";
print "2. Display a particular student\n";
print "3. Add a new student\n";
print "4. Delete a student\n";
print "0. Exit\n";
print "Please choose one of the options\n";
}
while (1) {
dispMenu
my $choice = <STDIN>;
chomp($choice); # to remove newline
print "you chose $choice";
dispBlanks;
}
----------------------------------------------------------
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
