Perl - Help with a Menu script required

[chris01010]

Hi,

I'm trying to wrtie a menu perl script which will allow users to connect to different servers from a management server without having to know the long server name.

I have written the below code, but when I execute it I manage to get through the first 2 menus but it doesn't exit once connected to the server (I thought the Last command would cause the Loop to exit).

Any ideas?



#!/usr/bin/perl

do

{

system('clear');
print "Please Select a Server";
print <<MENU_END;

[1].................BOB
[2].................BERT
[3].................HARRY
[4].................LEE
[5].................BILL
[6].................ANDY
[Q].................Quit
MENU_END

chomp($choice = <>);

RESPONSE1:
{
$choice = '1' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto BOB$dc`; sleep 2; last RESPONSE1; };
$choice = '2' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto BERT$dc`; sleep 2; last RESPONSE1; };
$choice = '3' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto HARRY$dc`; sleep 2; last RESPONSE1; };
$choice = '4' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto LEE$dc`; sleep 2; last RESPONSE1; };
$choice = '5' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto BILL$dc`; sleep 2; last RESPONSE1; };
$choice = '6' && do {
system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
`./goto ANDY$dc`; sleep 2; last RESPONSE1; };

};
} while $choice ne 'Q';

 

[prex1]

[tt]$choice='1'[/tt] is likely not what you meant, could be
[tt]$choice==1[/tt] or
[tt]$choice eq'1'[/tt].
Also I don't understand why you print the menu items at every while loop and the labeled block does nothing.
I would write this more or less like this:

#!/usr/bin/perl
system('clear');
print "Please Select a Server";
print <<MENU_END;

    [1].................BOB
    [2].................BERT
    [3].................HARRY
    [4].................LEE
    [5].................BILL
    [6].................ANDY
    [Q].................Quit
MENU_END
my$choice;
while(!$choice=~/^q/i){
  $choice=<>;
  for($choice){
    /^1/&&do{
      system('clear');
      print "Which Data Centre: ";
      chomp($dc = <>);
      `./goto BOB$dc`;
      sleep 2;
      last;
    };
#  other options
  }
}

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[chris01010]

Thanks for the post prex1, although a straight copy and paste of your code didn't work. Your suggestion did allow me to question the point of the loop and cut the size of the script down.

It's probably just the way I worded it, but basically the reason why the script didn't exit was due to the back ticks. I should have used exec instead.

New Script:

#!/usr/bin/perl

system('clear');

print <<MENU_END;
[1].................BOB
[2].................BERT
[3].................HARRY
[4].................LEE
[5].................BILL
[6].................ANDY
[Q].................Quit
MENU_END

print "Please Select a Server: ";

chomp($choice = <>);

if ($choice !~ /^q/i) {

@servers = ("dummy","bob","bert","harry","lee","bill","andy");

system('clear');
print "Which Data Centre: ";
chomp($dc = <>);
exec ("./goto $servers[$choice]$dc");
}

exit;