Hi, I have a problem with SWITCH. I wrote this, I think
it's clear to anzone what it should do:
print "Type in a number 1-5: ";
$s = <STDIN>;
SWITCH;
{
if ($s == 1) { print "one\n"; last SWITCH; }
if ($s == 2) { print "two\n"; last SWITCH; }
if ($s == 3) { print "three\n"; last SWITCH; }
if ($s == 4) { print "four\n"; last SWITCH; }
if ($s == 5) { print "five\n"; last SWITCH; }
}
And I get an error message saying "Label not found
for "last SWITCH" at line 11. <STDIN> chunk 1." (with line
11 being the first line of the chunk)
So what's wrong?
Also, how can I do something like in bash, where I have
options 1), 2)... and also *). That is, how can I do that
*) thing? :)
Thanks, Csaba
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
