Mysql Query using Perl

Copy and paste the following code into your editor (watch out the file type - I use Unix) and run it (code comments are included).
If you want to see the live result, try it here (new window).

#!/usr/bin/perl #include the DBI module which handles the database connection use DBI; #insert this line to display on browsers print "Content-Type: text/html\n\n"; #connect to the mysql base named 'test' using the user and password $dbh = DBI->connect("dbi:mysql:test",'user','pass'); #prepare and execute the query $sth=$dbh->prepare("SELECT user,pass FROM login") || die "Error : $DBI::errstr"; $sth->execute; #retrieve the number of rows generated from the query: if ($sth->rows > 0) { #browse all rows and display the results while (@table = $sth->fetchrow_array) { print "<p>User: ".$table[0]."<br />"; print "Password: ".$table[1]."</p>"; } } else { print 'There are no users.'; } #close the connection $sth->finish; $dbh->disconnect;

This script assumes you already set up a database named test with privileges granted to a user identified by a password.
It also assumes you created a table login containing the fields user and pass. You can easily adapt the query to your tables and databases.

Comments

Webmaster Corner

The Millionaire league
Dozens of Easy and Automatic Ways to Make Money Online Everyday!

Niche Annihilation Method
Crush Your Competition!
Download the method Now

iPowerWeb
Incredible Membership Packages - Web Hosting!

One Month Free Trial! ProStores - an eBay Company
Gain customers, increase sales, and boost profits with your own Web Store.

→ Get Google Pay-Per-Click Ads Free!
→ Automated Cash Formula $$$

Categories

• ASP
• CSS
• Flash
• Html
• Java
• Javascript
• PHP
• Python
• Perl
  • SEO
  • Database
  • Mathematic
  • Network
• Ruby
• Xml