Re: switch statement

[James Edward Gray II]

On Feb 19, 2004, at 3:14 PM, Anthony Vanelverdinghe wrote:

Hi
Howdy.

Could anyone please tell me what's wrong with the following "program"?
I'll try.

The compiler gives errors in the switch statement.
Perl doesn't have a native switch statement, but it is included as a 
module in 5.8+

Thx!!
 Anthony
First, things missing are right here:

#!/usr/bin/perl

use strict;                     # play by the good coder rules
use warnings;           # helps us help you
use Switch;		# request the switch module

%commands=('v',0,'w',1,'t',2,'/pattern/',3,'s',4,'x',5);
Then you'll need:

my %commands = ('v',0,'w',1,'t',2,'/pattern/',3,'s',4,'x',5);	# to 
satisfy 'strict'

$end = 0;
my $end = 0;

while (!end){
I believe that's supposed to be:

while ( ! $end ) {	# note $

print "bookmarks.html>";
$operation = <>;
chop $operation;
Don't use chop(), use chomp().  You can even do it in one line, 
replacing the two above with:

chomp(my $operation = <>);

$op=$commands{$operation};
switch ($op) {
switch ($commands{$operation) {

   case 0 {
           &add ();
Don't call subs like that.  Just use:

add();

           last;}
   case 1 {
           &delete();
           last;}
   case 2 {
           &show();
           last;}
   case 3 {
           &pattern();
           last;}
   case 4 {
           &save();
           last;}
   case 5 {
           &exit ();
           last;}
}
}


sub add{
   print "add";
}
sub delete{
   print "delete";
}
sub show{
   print "show";
}
sub pattern{
   print "pattern";
}
sub save{
   print "save";
}
sub exit{
   $end = 1;
}
See if that gets you going.

James

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>