perl創建mysql資料庫,perl mysql

本文目錄一覽：

• 1、windows下 perl 連接 mysql
• 2、如何使用perl 5.18 連接mysql 資料庫
• 3、通過dbi使用perl連接mysql資料庫的方法
• 4、perl連接mysql
• 5、perl環境下安裝mysql的資料庫驅動的問題
• 6、Perl使用MySQL資料庫的語法是什麼？

windows下 perl 連接 mysql

先在CMD方式下運行：

安裝DBI:mysql

在MYSQL配置正確的情況下就可以開始寫了，以下是例子：

#!/usr/bin/perl

use DBI;

$user=”root”;

$password=”mscnyhlplayon”;

$database=”flash”; #資料庫

$telbase=”game_flash”; #表

my $dbh = DBI-connect(“DBI:mysql:$database”, $user, $password) or die “無法連接資料庫: ” . DBI-errstr;

$sth=MySQL_Query(“select * from game_flash where id = 46”);

$row = $sth-fetchrow_arrayref();

$test_txt= $row-[4];

#斷開連接

$dbh-disconnect;

print “$sthbrbr$test_txtbrbr$row”;

print “/BODY/HTML”;

sub MySQL_Query {

my ($class,$command)=@_;

$sth=$dbh-prepare(“$class”) || die Lost($class,$dbh-errstr);

$sth-execute() || die Lost($class,$dbh-errstr);

return($sth);

}

sub Lost {

my ($errsA,$errsB)=@_;

print “$errsAbrbr$errsB”;

print “/BODY/HTML”;

exit;

}

如何使用perl 5.18 連接mysql 資料庫

用DBI就可以給你段代碼：

use DBI;

my $dbname = “test”;

my $location = “192.168.1.115”;

my $port = “3306”; #這是mysql的預設

my $database = “DBI:mysql:$dbname:$location:$port”;

my $db_user = “root”;

my $db_pass = “123456”;

my $dbh = DBI-connect($database,$db_user,$db_pass);

my $sql = “SELECT *  FROM tablename”;

my $sth = $dbh-prepare($sql);#準備

$sth-execute() or die “無法執行SQL語句:$dbh-errstr”; #執行

while (@data = $sth-fetchrow_array()) {#fetchrow_array返回row

print “Email:$data[0]\t Telephone:$data[1]\n”;

}

$sth-finish();

$dbh-disconnect;#斷開資料庫連接

通過dbi使用perl連接mysql資料庫的方法

通過使用DBI，用Perl可以很容易的連接到mysql資料庫:

代碼如下：

複製代碼

代碼如下:

#!/bin/perl

use

DBI;

#

Connect

to

target

DB

my

$dbh

=

DBI-connect(“DBI:mysql:database=eygle;host=localhost”,”username”,”password”,

{‘RaiseError’

=

1});

#

Insert

one

row

my

$rows

=

$dbh-do(“INSERT

INTO

test

(id,

name)

VALUES

(1,

‘eygle’)”);

#

query

my

$sqr

=

$dbh-prepare(“SELECT

name

FROM

test”);

$sqr-execute();

while(my

$ref

=

$sqr-fetchrow_hashref())

{

print

“$ref-{‘name’}n”;

}

$dbh-disconnect();

perl連接mysql

下載以後需要安裝，安裝方法可以參考文章：

安裝好了就可以使用了，例子程序如下：

#!/usr/bin/perl

use DBI;

my $dbname = “db_name”;

my $location = “localhost”;

my $port = “3306”; #這是mysql的預設

my $database = “DBI:mysql:$dbname:$location:$port”;

my $db_user = “root”;

my $db_pass = “db_password”;

my $dbh = DBI-connect($database,$db_user,$db_pass);

my $sql = “SELECT first_name,last_name FROM $table ORDER BY first_name”;

my $sth = $dbh-prepare($sql);

#結果保存在$sth中

$sth-execute() or die “無法執行SQL語句:$dbh-errstr”;

$dbh-disconnect;#斷開資料庫連接

補充：

拷貝文件到SYSTEM32不是最好的辦法，其實在環境變數PATH裡面加入MYSQL的DLL文件目錄即可。

perl環境下安裝mysql的資料庫驅動的問題

用ppm裝啊。。。不行的話下載到本地然後路徑指為本地再裝。。

或者就這樣

use dbi

$self-{DBREF}=DBI-connect(“DBI:mysql:database=$database;host=$host”,$user,$password);

Perl使用MySQL資料庫的語法是什麼？

注意看下面「參考資料」中給你的鏈接。

use DBI;

$dsn = “DBI:mysql:database=$database;host=$hostname;port=$port”;

$dbh = DBI-connect($dsn, $user, $password);

$drh = DBI-install_driver(“mysql”);

@databases = DBI-data_sources(“mysql”);

or

@databases = DBI-data_sources(“mysql”,

{“host” = $host, “port” = $port, “user” = $user, password = $pass});

$sth = $dbh-prepare(“SELECT * FROM foo WHERE bla”);

or

$sth = $dbh-prepare(“LISTFIELDS $table”);

or

$sth = $dbh-prepare(“LISTINDEX $table $index”);

$sth-execute;

$numRows = $sth-rows;

$numFields = $sth-{‘NUM_OF_FIELDS’};

$sth-finish;

$rc = $drh-func(‘createdb’, $database, $host, $user, $password, ‘admin’);

$rc = $drh-func(‘dropdb’, $database, $host, $user, $password, ‘admin’);

$rc = $drh-func(‘shutdown’, $host, $user, $password, ‘admin’);

$rc = $drh-func(‘reload’, $host, $user, $password, ‘admin’);

$rc = $dbh-func(‘createdb’, $database, ‘admin’);

$rc = $dbh-func(‘dropdb’, $database, ‘admin’);

$rc = $dbh-func(‘shutdown’, ‘admin’);

$rc = $dbh-func(‘reload’, ‘admin’);