473,232 Members | 1,426 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,232 software developers and data experts.

Perl DBI: Getting POST info into select query

Hi,

I'm trying to use a simple form to select by which column I will display
output from a MySQL database.

I'd like to display based on ORDER BY and select Written, Average, etc.

I know the data is getting to the script from the post, I just can't get it
to the select statement.

Here is the code:


#!/usr/bin/perl

use DBI;

$sizeOfFormInformation = $ENV{'CONTENT_LENGTH'};
read (STDIN, $form_info, $sizeOfFormInformation);

($field_name, $command) = split (/=/, $form_info);

my $dbh = DBI->connect ('DBI:mysql:eln8220s02', root) or die "Couldn't
connect to database: " . DBI->errstr;

my $sth = $dbh->prepare('

select marks.Last_Name, min(marks.Score) as Minimum, max(marks.Score) as
Maximum, avg(marks.Score) as Average, count(marks.Score) as Count from marks
where marks.Type = "quiz" and marks.Score > 0 group by Last_Name order by
[THIS IS WHERE I WANT TO INSERT THE POST DATA] desc

') or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute;


Any help would be appreciated.

Thanks.
Jul 19 '05 #1
1 5723
Why don't you use the CGI module to read the POST request?
Let's say you have a field in your POST request called 'order_by', you
would do:

use CGI;
my $query = CGI->new;
my $order_by = $query->param('order_by');

Check: http://www.perldoc.com/perl5.6/lib/CGI.html

Regards,

-Andrés

Mavis wrote:
Hi,

I'm trying to use a simple form to select by which column I will display
output from a MySQL database.

I'd like to display based on ORDER BY and select Written, Average, etc.

I know the data is getting to the script from the post, I just can't get it
to the select statement.

Here is the code:


#!/usr/bin/perl

use DBI;

$sizeOfFormInformation = $ENV{'CONTENT_LENGTH'};
read (STDIN, $form_info, $sizeOfFormInformation);

($field_name, $command) = split (/=/, $form_info);

my $dbh = DBI->connect ('DBI:mysql:eln8220s02', root) or die "Couldn't
connect to database: " . DBI->errstr;

my $sth = $dbh->prepare('

select marks.Last_Name, min(marks.Score) as Minimum, max(marks.Score) as
Maximum, avg(marks.Score) as Average, count(marks.Score) as Count from marks
where marks.Type = "quiz" and marks.Score > 0 group by Last_Name order by
[THIS IS WHERE I WANT TO INSERT THE POST DATA] desc

') or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute;


Any help would be appreciated.

Thanks.

Jul 19 '05 #2

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

4
by: banz | last post by:
Hello I have a problem to resolve: I wrote a Perlscript which caches data from a server (local on my machine) I would like to have a other connection to a remote server but I don't know how to...
5
by: olaamussah | last post by:
Hi, i just started learning perl which i would use for my uni. project unfortunately. Well, this is a simple user login page i tried to create but i cant get it to work. Can someone please check this...
3
by: hakiran | last post by:
Hello all, I have been using Perl DBI the last 6months or so. I use it extensively with MySQL. But recently i tried to access Oracle DB with it and was having trouble. Any help would be...
0
by: nickyxu | last post by:
Hi all, I have a script about query record from MS Access database. This database contains a table named Lengths. The list of field names is Sample_ID, Taxon_ID, Lenght. Question is coming:...
0
by: Rebles | last post by:
I'm writing a PERL script to access and insert rows into a Microsoft SQL. i'm using MS SQL Server Management Studio Express (2005) to architect tables and queries. I've inserted two records into...
1
by: Rebles | last post by:
Hi, I just posted this in the MS SQL Section, but maybe my problem is rooted in Perl, so it's more appropriate to post here instead (sorry for the double post) I'm writing a PERL script to...
82
by: happyse27 | last post by:
Hi All, I modified the user registration script, but not sure how to make it check for each variable in terms of preventing junk registration and invalid characters? Two codes below : a)...
2
by: smithji | last post by:
Hi All, I'm having a problem executing a MySQL query witihin Perl and was hoping that someone will be able to help me in my moment of stress. When I run the below script I get this...
3
by: pramod1984 | last post by:
#!/usr/bin/perl # PERL MODULES WE WILL BE USING use DBI; use DBD::mysql; use Asterisk::AGI; $AGI = new Asterisk::AGI; # HTTP HEADER
3
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 3 Jan 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). For other local times, please check World Time Buddy In...
0
by: abbasky | last post by:
### Vandf component communication method one: data sharing ​ Vandf components can achieve data exchange through data sharing, state sharing, events, and other methods. Vandf's data exchange method...
2
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 7 Feb 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:30 (7.30PM). In this month's session, the creator of the excellent VBE...
0
by: fareedcanada | last post by:
Hello I am trying to split number on their count. suppose i have 121314151617 (12cnt) then number should be split like 12,13,14,15,16,17 and if 11314151617 (11cnt) then should be split like...
1
by: davi5007 | last post by:
Hi, Basically, I am trying to automate a field named TraceabilityNo into a web page from an access form. I've got the serial held in the variable strSearchString. How can I get this into the...
0
by: MeoLessi9 | last post by:
I have VirtualBox installed on Windows 11 and now I would like to install Kali on a virtual machine. However, on the official website, I see two options: "Installer images" and "Virtual machines"....
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.