I can recommend a good web tutorial that got me started in perl: http://www.cgi101.com/class
---------- In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (David Gilden) wrote: > Good afternoon, > This is my first shot at using CGI.pm (using the function-oriented style). > I can't seem to get my script to read values from my web page. > http://dowda.rockin.net/cgi/sql_sort2.pl > > Here is part of the script. Your comments are welcome. > Special thanks to [EMAIL PROTECTED] (Curtis Poe) for jump start on this. > > One last question, is there a better or different way to pad the buttons of > a radio group with spaces then to add them to hash values? > Thanks > Dave > > > -------------------- > #!/usr/bin/perl -w > > use CGI qw/:standard/; > > require "dbi-lib.pl"; > > # use strict; > > # use CGI qw/:standard :html :cgi-lib/; > > > my ($sex,$sort_by,$sort_direction,$new_row ,$row_count, $first_name, > $last_name, $birthday, $gender, $height, $weight); > > $new_row ="<tr>\n"; > > &initialize_dbi; > &run_statement("select * from friends;"); > > ## Get sort order via post method > #my %FORM_DATA = Vars; > > # $sort_by = $FORM_DATA{sort_order} || 0; > # $sort_by = 0; > > #### > > my %sort_by =( > 0 => 'Nothing ', > 1 => 'Hash ', > 2 => 'First Name ', > 3 => 'Last Name ', > 4 => 'Birthday ', > 5 => 'Sex ', > 6 => 'Height ', > 7 => 'Weight ', > ); > > > # Was hash this really necessary, > my %sort_direction =( > 0 => 'High to Low ', > 1 => 'Low to High ', > ); > > > > > print header, > start_html( -title => 'SQL Sort with CGI.pm' ), > start_form( -method => 'POST' ), > > radio_group( > -name => 'sort_by', > -values => [ keys %sort_by ], > -default => $sort_by, > -labels => \%sort_by > ); > > print "<p>", submit( -value => 'Sort Data' ), " ", > > radio_group( > -name => 'sort_direction', > -values => [ keys %sort_direction ], > -default => $sort_direction, > -labels => \%sort_direction > ), > > "</p>\n"; > print end_form; > $sort_by = param('sort_by') || 0; # Sort by Name, sex, ect... > $sort_direction = param('sort_direction') || 0; # Sort Direction for numbers > > print "-"x100,"\n"; > > foreach $names (param()){ > print "<b>Data in: $names = param($names)</b><br>\n" > } > > > # strip off white space > my $tmp; > ($tmp = $sort_by{$sort_by}) =~ s/\s+//g; > > print p( 'Sort Database by' . font( { color => 'red' }, " $tmp: \$sort_by= > $sort_by ") . param('sort_direction') .'test'); > > > > *====================================================* > * Cora Connection Your West African Music Source * > * http://www.coraconnection.com/ * > * Resources, Recordings, Instruments & More! * > *====================================================* -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
