MySQL Basics In Pictures
Join two tables
  1. Open the text editor.
  2. Save the blank document as random.pl in the programs directory.
  3. Copy the following code and paste it into random.pl.

    
    #!/usr/bin/perl -w
    
    use DBI;
    use strict;
    
    # database information
    my $db="us_presidents";
    my $host="localhost";
    my $port="3306";
    my $userid="marty";
    my $passwd="watch4keys";
    my $connectionInfo="DBI:mysql:database=$db;$host:$port";
    
    # find a random number between 1 and 20
    my $random=int(rand 20) + 1;
    
    # make connection to database
    my $dbh = DBI->
    connect($connectionInfo,$userid,$passwd);
    
    # prepare and execute query
    my $query = "SELECT first,middle,last,quote
    FROM quote,name
    WHERE quote.id=$random
    AND quote.name_id=name.id;";
    
    my $sth = $dbh->prepare($query);
    $sth->execute(); 
    
    # assign fields to variables
    my ($first,$middle,$last,$quote);
    $sth->bind_columns(undef, \$first, \$middle, \$last, \$quote); 
    
    # output random quote
    while($sth->fetch()) {
       print header(), start_html("Random Quotation");
       print "

    Random Quotation: $quote

    - $first "; print "$middle" if ($middle); print "$last\n

    ", end_html(); } $sth->finish(); # disconnect from database $dbh->disconnect;