Tip: carefully read `perldoc CGI` and `perldoc DBI` if you're going to do much CGI programming in Perl. (I realize that is begging for someone to point out in the following something that contradicts one of those documents. :)

I tested this, so hopefully pasting didn't mess anything up. (Change the $table and $sql in the following.) 

#!/usr/local/bin/perl -w
# Demonstrate a scrolling list with DBI

use strict;
use CGI;
use DBI;

use vars qw($q $table);

$q = new CGI;
$table = 'makes';


MAIN: {
        my ($makes, $html);

        $makes = get_makes();

        if (ref $makes) {
                print makes_page($makes);
        } else {
                print error_page('Blah!');
        }

}

sub get_makes {
        my ($dbh, $sql, $sth, @makes);
        $dbh = get_dbh();

        $sql = qq{SELECT make FROM $table};
        $sth = $dbh->prepare($sql);
        $sth->execute();
        while (my $make = $sth->fetchrow_array()) {
                push @makes, $make;
        }
        $sth->finish();
        $dbh->disconnect();

        return \@makes;
}

sub get_dbh {
        my ($dsn, $dbh);

        $dsn = "DBI:mysql:database=cartalk";
        # better:
        # $dsn = q{DBI:mysql:mysql_read_default_file=/home/you/.my.cnf
+};

        $dbh = DBI->connect($dsn) || die $DBI::errstr;
        return $dbh;
}

sub makes_page {
        my $makes = shift;
        my ($make, $html);

        $make = (defined $q->param('make') && $q->param('make') =~ /^\
+w+$/)
                ? $q->param('make')
                : '';

        $html = $q->header() . $q->start_html('Your title') . $q->star
+t_form();
        $html .= $q->scrolling_list(-name   => 'make',
                                    '-values' => $makes,
                                    -size   => 6);
        $html .= $q->submit(-name => 'submit', -value => 'Submit!');
        $html .= "<P>Submitted: $make</P>\n";
        $html .= $q->end_form() . $q->end_html();

        return $html;
}

sub error_page {
        my $msg = shift;
        my ($html);

        $html = $q->header(). $q->start_html('Error!');
        $html .= $msg;
        $html .= $q->end_html();
        return $html;
}

[download]

In reply to Re: mysql values in select box by kwoff
in thread mysql values in select box by drivle

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.