Perl MySql Example
Perl with DBI, Perl Database access
!/usr/bin/perl -w
#
script to add up some table data
use DBI;
use CGI::Carp qw(fatalsToBrowser);
print “Content-type: text/html\n\n”;
my $dbh = DBI->connect(’dbi:mysql:database=DATABASE_NAME;host=localhost’, ‘USERNAME’, ‘PASSWORD’)
or die “Couldn’t connect to database: ” . DBI->errstr;
my ( $k, $id, $book_date, $svc_type, $cust_id, $time_pref, $a_sched,$a_eight);
my $t_date=”20080115″;
$sqlquery = qq( SELECT id, book_date, svc_type, cust_id, time_pref, FROM orders
WHERE move_date
= $t_date );
$sth = $dbh->prepare ( $sqlquery );
$sth->execute() || die “Couldn’t execute query: ” . DBI->errstr;
$k = 0;
$sth->bind_columns( \$id, \$book_date, \$svc_type, \$cust_id, \$move_date, \$time_pref, \$est_men, \$est_trks );
while ( $sth->fetch() ) {
$a_sched += 1;
if ( $time_pref eq “8-9A.M.” ) { $a_eight +=1; }
}
Now $a_sched contains the number of records $a_eight contains the number of 8-9A.M. record for that date.
atlanta custom database design vehicle dispatch ERP