declare %flavors, ie my %flavors. this is what use strict is for. read up on scoping
> -----Original Message----- > From: Mark Schouten [mailto:[EMAIL PROTECTED]] > Sent: Thursday, September 26, 2002 11:47 AM > To: [EMAIL PROTECTED] > Subject: Hi > > > Hi, > > I'm a complete newbie, so have some patience. :) > > Im walking through the book 'Learning Perl' by O'Reilly and > I'm allready > in a small problem. > > I'm trying to compile the following: > > ==================== > #!/usr/bin/perl -w > ## cgi-bin/ice_cream: program to answer and generate ice cream > ## order form (version 4) > use strict; # enforce variable declarations and quoting > use CGI qw(:standard); > > print header, start_html("Ice Cream Stand"), h1("Ice Cream Stand"); > if (param()) { # the form has already been filled out > my $who = param("name"); > my $flavor = param("flavor"); > my $scoops = param("scoops"); > my $taxrate = 1.0743; > my $cost = sprintf("%.2f", $taxrate * (1.00 + $scoops * 0.25)); > print p("Ok, $who, have $scoops scoops of $flavor for \$$cost."); > } else { # first time through, so present clean form > print hr(); # draw a horizontal rule before the form > print start_form(); > print p("What's your name? ", textfield("name")); > # FOR EXPLANATION OF FOLLOWING TWO LINES, SEE NEXT SECTION > print p("What flavor: ", popup_menu("flavor", > ['mint','cherry','mocha'])); > print p("How many scoops? ", popup_menu("scoops", [ 1..3 ])); > > ##Problem started here > > %flavors = ( > mint => "Mighty Mint", > chocolate => "Cherished Chocolate", > cherry => "Cheery Cherry", > vanilla => "Very Vanilla", > peach => "Perfectly Peachy", > ); > print scrolling_list( > -NAME => "flavors", > -LABELS => \%flavors, > -VALUES => [ keys %flavors ], > -SIZE => 3, > -MULTIPLE => 0, # 1 for true, 0 for false > ); > > ##End of problem > > print p(submit("order"), reset("clear")); > print end_form(), hr(); > } > print end_html; > ==================== > (Indeed, it is the example program. :)) > > It all worked fine untill I pasted the ## Problem part ##. In > my logs I > see the following message: > > ==================== > Global symbol "%flavors" requires explicit package name at > dhcptest.cgi > line 22. > Global symbol "%flavors" requires explicit package name at > dhcptest.cgi > line 31. > Global symbol "%flavors" requires explicit package name at > dhcptest.cgi > line 32. > ==================== > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
