CASE in Perl 4 ?

[browserice]

Is there a CASE command in Perl-4 ?
If so, what is its synthax ?

 

[PaulTEG]

have a look on google for "switch.pm", it's really worth your while to upgrade to Perl 5 BTW

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[browserice]

I am not talking about Perl-5 nor can I upgrade to it. I am stuck with Perl-4.

 

[Kirsle]

Try:

print "enter a color <red|green|blue> ";
my $color = <STDIN>;
chomp $color;

for ($color) {
   /red/ and do {
      print "You chose red!\n";
      last;
   };

   /blue/ and do {
      print "You chose blue!\n";
      last;
   };

   /green/ and do {
      print "You chose green!\n";
      last;
   };

   print "You weren't following directions! $color wasn't "
      . "a valid color choice!\n";
}

Its syntax looks a little different than CASE does, but it works similarly.

-------------
Kirsle.net | Kirsle's Programs and Projects

 

[browserice]

thx