Reading a random row from a MySQL table with Perl DBI

This is the code from one of the clients used in the post "Statistics on getting a random row from a table" to check for the quickest way to access a random row.

It does nothing but reading a thousand random rows, I hope it's enough for you to learn how to access MySQL databases using Perl and use it as a quickstart for your own scripts.

#!/usr/bin/perl

use DBI;
use DBD::mysql;

$platform = "mysql";
$database = "database";
$host = "server_ip";
$port = "3306";
$user = "user";
$pw = "12345";

$dsn = "dbi:$platform:$database:$host:$port";

$connect = DBI->connect($dsn, $user, $pw);

for ($i=0; $i<1000; $i++)
{
    $query = "SELECT COUNT(1) AS total FROM bench_myisam";
    $query_handle = $connect->prepare($query);
    $query_handle->execute();

    $query_handle->bind_columns(\$total);

    if ($query_handle->fetch())
    {
        $rand = int(rand($total));

        $query = "SELECT id FROM bench_myisam LIMIT 1 OFFSET $rand";
        $query_handle = $connect->prepare($query);
        $query_handle->execute();

        $query_handle->bind_columns(\$id);
        $query_handle->fetch();
    }  
}

Otras entradas de la web que podrian interesarte:

• (901)  Jan 24  PRINCIPAL ENGLISH MYSQL SQL  Statistics on getting a random row from a table
• (828)  May 28  MYSQL ENGLISH  Get the last AUTO_INCREMENT ID in MySQL
• (850)  Nov 15  MYSQL  Optimizar querys en MySQL con Explain
• (827)  May 28  MYSQL  Obtener el ultimo AUTO_INCREMENT
• (830)  May 28  PERL LINUX ENGLISH  Installing CPAN Perl modules made easy

4421

Anonimo (2010-05-05 22:59:05)

luana uili

4422

Anonimo (2010-05-05 22:59:06)

luana uili