Question: I need an example of a Perl script to
select rows from a MySQL table.
I would also like an example of a perl script that inserts into a
table.
Answer: Here is a sample Perl script to
connect to MySQL from Perl and how to insert and select MySQL rows
from Perl:
#!/usr/bin/perl
#**************************************
# Connect to a MySQL
database with Perl:
#**************************************
my $dbh = DBI->connect('DBI:mysql:mytablename, 'mydbuser',
'dbpassword'
) || die "Could not
connect to database: $DBI::errstr";
#**************************************
# select from a MySQL
database from Perl
# the query must first be prepared before
#
a selection may be executed.
#**************************************
my $qry = "select
col1 from mytable";
my $sqlexe = $dbh->prepare($qry);
$sqlexe->execute
or die "SQL Error: $DBI::errstrr\n";
#***************************************
# Now that the selection
has been performed
# we can access the rows using fetchrow_array
# which will access the next available row
#***************************************
while (@row =
$sqlexe->fetchrow_array){
print "@row\n";
}
#**************************************
# Insert into MySQL
database from Perl
# This same method can be used for
#
updating or deleting rows as needed.
#**************************************
my $insertqry =
"insert into mytablename values ('$column1', '$column2',
'$column3', NOW())";
$dbh->do($insertqry);
#**************************************
# Close connection from
MySQL database
#**************************************
$dbh->disconnect();
|
|
 |
|
Guarantee your Success!
Oracle is the
world's most complex, robust and flexible database, considered
impossible to master without a mentor.
That's why all BC
Oracle trainers are working professionals, experts in Oracle who
share their tips and secrets. |
|
| |
|
Burleson is the American Team
Note:
This Oracle
documentation was created as a support and Oracle training reference for use by our
DBA performance tuning consulting professionals.
Feel free to ask questions on our
Oracle forum.
Verify
experience!
Anyone
considering using the services of an Oracle support expert should
independently investigate their credentials and experience, and not rely on
advertisements and self-proclaimed expertise. All legitimate Oracle experts
publish
their Oracle
qualifications.
Errata?
Oracle technology is changing and we
strive to update our BC Oracle support information. If you find an error
or have a suggestion for improving our content, we would appreciate your
feedback. Just
e-mail:
 and include the URL for the page.
Copyright ? 1996 - 2012
All rights reserved.
Oracle ?
is the registered trademark of Oracle Corporation.
|
|
