Thanks, I've just had a look at it, and it looks pretty good. However I've bookmarked it for later, as I'm still working my way through both 'learning perl' and the cgi.pm man page! I think I'll probably start dreaming in perl soon:)
carl www.fireartist.com ---------- >From: Mark Bergeron <[EMAIL PROTECTED]> >To: Carl Franks <[EMAIL PROTECTED]>, [EMAIL PROTECTED] >Subject: Re: Re: Getting Stared with CGI.pm >Date: Wed, Oct 10, 2001, 4:02 pm > > I don't know if you've tried this one yet? > > http://stein.cshl.org/WWW/software/CGI/ > > The site of the guy that wrote cgi.pm > > -----Original Message----- > From: "Carl Franks"<[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > Date: Mon Oct 08 06:26:49 PDT 2001 > Subject: Re: Getting Stared with CGI.pm > >>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] >> > > ___ _ > | _ ) ___ ___ | | > | _ \/ _ \/ _ \|_| > |___/\___/\___/(_) > ___________________________________________________ > GO.com Mail > Get Your Free, Private E-mail at http://mail.go.com > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
