bk_connect.pl

来自「BabelKit是一个通用多语言数据库代码表的接口。它接收维护使用多语言的多个数」· PL 代码 · 共 31 行

#!/usr/bin/perl

#       #       #       #
#
# bk_connect.pl
#
# Connect to the database.
# Customize this file to your environment!
#
# Copyright (C) 2003 John Gorman <[e-mail]>
# http://www.webbysoft.com/babelkit
#

use strict;
use warnings;
use DBI;

# Database connection.  Set these parameters:

sub bk_connect {
    my $dbh = DBI->connect(
        "DBI:mysql:webbysoft:localhost",
        "webbysoft",
        "124c41"
        ) or die "DBI::connect: $DBI::errstr\n";

    return $dbh;
}

1;