Пример на Perl дБи с MySQL ДДЛ


Я экспериментировал с Perl и MySQL и написал этот код для подключения и записи в базу данных:

#   MySQL DDL to create database used by code 
#
#   CREATE DATABASE sampledb;
#
#   USE sampledb;
#   
#   CREATE TABLE `dbtable` (
#     `id`  int(11) NOT NULL AUTO_INCREMENT,
#     `demo` longtext,
#     PRIMARY KEY  (`id`)
#   ) ENGINE=InnoDB DEFAULT CHARSET=utf8;

# PERL MODULES
use strict;
use warnings;
use DBI; #http://dbi.perl.org

# CONFIG VARIABLES
my $platform = "mysql";
my $database = "sampledb";
my $host = "localhost";
my $port = "3306";
my $username = "root";
my $password = "password";

# DATA SOURCE NAME
my $dsn = "dbi:$platform:$database:$host:$port";

# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $username, $password);

# VARS for Examples
my $query;
my $query_handle;
my $id;
my $demo;

# Example 1 using prepare() and execute() INSERT

    # SAMPLE VARIABLE AND VALUES TO PASS INTO SQL STATEMENT
    $id = 1;
    $demo = "test";

    # INSERT
    $query = "INSERT INTO dbtable (id, demo) VALUES ('$id', '$demo')";
    $query_handle = $connect->prepare($query);
    $query_handle->execute();
    undef $query;

# Example 2 using do() UPDATE   

    # SAMPLE VARIABLE AND VALUES TO PASS INTO SQL STATEMENT
    $id = 1;
    $demo = "test 2";

    # UPDATE
    $query = "UPDATE dbtable SET demo = '$demo' WHERE id = $id";
    $query_handle = $connect->do($query);
    undef $query;

Это правильный/идиоматические способ доступа к базе данных в Perl? Существуют ли какие-либо другие улучшения, что я мог сделать?



962
5
задан 25 марта 2011 в 11:03 Источник Поделиться
Комментарии
1 ответ

Пара вещей, которые я заметил:

Когда вы подключаетесь к базе данных, вы не убедитесь, что подключение удалось. Самый распространенный способ я видел, чтобы сделать это в Perl:

my $connect = DBI->connect($dsn, $username, $password)
or die "Connection Error: DBI::errstr\n";

Если подключение не удается, то программа выдаст сообщение о сбое подключения, так что вы можете увидеть, что происходит.

Я вижу, что вы используете два разных способа доступа к базе данных. Лучше было бы выбрать один и использовать его для всех ваших вставок/обновлений, если только нет веских причин не - он держит будущих читателей от попыток выяснить, почему вы сделали это по-разному. В этом случае я бы рекомендовал, используя выполните , поскольку он позволяет выполнять несколько раз:

$query_handle = $connect->prepare("INSERT INTO dbtable (id, demo) VALUES (?, ?)");
$query_handle->execute($id, $demo);
$id = 2;
$demo = "test2";
$query_handle->execute($id, $demo);

Также не забудьте отсоединить:

$connect->disconnect;

3
ответ дан 29 марта 2011 в 01:03 Источник Поделиться