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]

Reply via email to