perl串連mysql資料庫

標籤：ebs   fetch   sites   主機   sql資料庫   lex   base   執行   from   

首先需要安裝

ppm install DBD::mysql

use strict;use DBI; my $host = "localhost";         # 主機地址my $driver = "mysql";           # 介面類型 預設為 localhostmy $database = "RUNOOB";        # 資料庫# 驅動程式對象的控制代碼my $dsn = "DBI:$driver:database=$database:$host";  my $userid = "root";            # 資料庫使用者名稱my $password = "123456";        # 資料庫密碼 # 串連資料庫my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;my $sth = $dbh->prepare("SELECT * FROM Websites");   # 預先處理 SQL  語句$sth->execute();    # 執行 SQL 操作 # 注釋這部分使用的是綁定值操作# $alexa = 20;# my $sth = $dbh->prepare("SELECT name, url#                        FROM Websites#                        WHERE alexa > ?");# $sth->execute( $alexa ) or die $DBI::errstr; # 迴圈輸出所有資料while ( my @row = $sth->fetchrow_array() ){       print join(‘\t‘, @row)."\n";} $sth->finish();$dbh->disconnect();

 

perl串連mysql資料庫