In addition, I've been playing around with the 'use diagnostics' feature in perl. That's in addition to 'use warnings'. I don't recommend it for regular coding but when stumped it may help.
> 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> > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>