use strict;
my %hash=(1=>"Turkey",2=>"Goat",3=>"Fish");
print "choose 1:\n";
for(sort keys %hash){
    print "$_=$hash{$_}\n";
}
print "Choice: ";
my $ans=<STDIN>;
chomp $ans;
print "Invalid Answer!" unless exists $hash{$ans};
print "You chose $hash{$ans}\n";
[download]

That makes the most sense to me too. Plus if you need to scale up your switch statement, it's easy with a hash!

$hash{1} = sub {print "You chose turkey";};
$hash{2} = sub {print "You chose Goat;"; print "..ew";};

for (keys %hash) {
&{$hash{$_}};
}
[download]

..Obviously for just picking what to print, you're making work for yourself, but if you need to accomplish more than that (which is usually the case), it can save time (without a million elsifs cluttering your code).

Otherwise you will have to use if/elsif statements.

Be aware:

> $choice=<STDIN>;
> if ($choice="1") {
>    $choice="Turkey";
> }
> else choice="2"...etx
[download]

janx

In the spirit of TMTOWTDI:

#!/bin/perl
use strict;
use warnings;
my $choice = 0;
my @choices = (undef, "Turkey", "Steak", "Chicken", "Ground Beef", "Ma
+shed Potatoes", "Apple Turnover", "Cherry Pie", "Giblet Stuffing", "G
+oat Liver", "Goat Cheese", "Head Cheese", "Cheeseburger");
my $num = scalar @choices - 1;
print "Choices is $num\n";

while ($choice < 1 or $choice > $num) {
  print "\nChoose 1 of the $num options:\n";
  foreach (1 .. $num) {
    print "$_ $choices[$_]\n";
  }
  print "\nChoice: ";
  $choice = <STDIN>;
  $choice += 0;
}
print "\nYou choose $choices[$choice].\n";
[download]

Updated: Added more options to better match what vivekvp is going to do with it.
Also, this is probably not the best way to do it. It was fun to write though. :)

Is take just print the menu (using print or printf). And then look have a variable waiting for <STDIN>. After chomping this variable, I would use a lot of if/elsif statements (quick and dirty), or possibly a hash of references to subs to do what I need to be done when a choice has been made. Perl has no CASE or SWITCH statements, but that should not stop you from

-Enlil

sub f
{
my$x;my%x=map{++$x,$_}@_;print"Choose 1 of the $x options:\n",(map{"$_
+=$x{$_}\n"}1..@_),"\nChoose one:\n";chomp($_=<>);$x{$_}
}

print "Response=".p(qw[ Turkey Steak Apple ]),$/;
[download]