24h購物| | PChome| 登入
2008-06-24 10:59:10| 人氣1,064| 回應0 | 上一篇 | 下一篇

perl mysql select

推薦 0 收藏 0 轉貼0 訂閱站台

use DBI;
use strict;

##
#$http://xxxxxx/s001.php#
#
my $db=”db_item”;
my $host=’172.0.0.xxx’;
my $user=’use’;
my $password=’passswd’;

my $dbh = DBI->connect(”DBI:mysql:database=$db;host=$host”,
$user, $password, {RaiseError => 1});
if ($dbh) {
print ”connection success!!n”;
#
# mysql query
#
my $sth = $dbh->prepare(”SELECT * FROM tbl limit 10”);
$sth->execute();
while(my $ref = $sth->fetchrow_hashref()) {
print ”no: $ref->{’no’}n”;
print ”class: $ref->{’class’}n”;
print ”----------n”;
}

# clean up


}
else
{
# insert to db
die;

}
$dbh->disconnect();

台長: 大D QQ
人氣(1,064) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: Mysql相關 |
此分類下一篇:mysql Slave error 跳過
此分類上一篇:MySQL Performance Tuning:

是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼:
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文