遷移需求與挑戰
- 源：SQL Server 存儲過程（含 T-SQL 特有語法、註釋）。
- 目標：MySQL 存儲過程（語法差異大，需註釋掉原邏輯佔位）。
- 難點：長文本提取（
sp_helptext 返回多行）、編碼轉換（GBK→UTF-8）、註釋標記替換。
核心流程圖解
- 連接 SQL Server ODBC (
DBI:ODBC:sqldb) 獲取所有對象類型 'P' 的過程名。
- 逐個調用
EXEC sp_helptext 'proc_name' 取得定義文本（需設置 LongReadLen 防止截斷）。
- 正則替換註釋標記：
/* → ------註釋開始--------，*/ → ------註釋結束--------（避免 MySQL 解析嵌套註釋報錯）。
- 包裝為 MySQL 語法：
CREATE PROCEDURE name() BEGIN /* 原文本 */ END;。
- 連接 MySQL (
DBI:mysql:mysqldb:host:port)，設置連接字符集 utf8，執行創建。
- 日誌記錄：原文本存
createtableallproduce.txt，轉換後存 myproduce.txt。
關鍵代碼片段
# 獲取過程文本（處理長文本）
my $dbh_mssql = DBI->connect("dbi:ODBC:$source_name", $user, $pwd, {RaiseError => 1});
$dbh_mssql->{LongTruncOk} = 1;
$dbh_mssql->{LongReadLen} = 1048576; # 1MB
my $sth = $dbh_mssql->prepare("EXEC sp_helptext '$proc_name'");
$sth->execute();
my $sql_text = '';
$sql_text .= $_ while $_ = $sth->fetchrow_array();
# 註釋標記轉換
$sql_text =~ s|/\*|------註釋開始--------|g;
$sql_text =~ s|\*/|------註釋結束--------|g;
# 構建 MySQL 存儲過程
my $mysql_sql = "CREATE PROCEDURE `$proc_name`()\nBEGIN\n/* $sql_text */\nEND;";
# 編碼轉換 GBK → UTF-8
use Encode;
my $utf8_sql = encode('utf-8', decode('gbk', $mysql_sql));
# 執行創建
my $dbh_mysql = DBI->connect($dsn_mysql, $mysql_user, $mysql_pwd);
$dbh_mysql->do("SET NAMES utf8");
$dbh_mysql->do($utf8_sql);
遷移後必須人工處理的語法差異
| SQL Server | MySQL | 處理建議 |
|---|
GETDATE() | NOW() / CURRENT_TIMESTAMP | 全局替換 |
ISNULL(a,b) | IFNULL(a,b) / COALESCE(a,b) | 全局替換 |
TOP n | LIMIT n | 需調整語句結構 |
IDENTITY | AUTO_INCREMENT | 表結構同步時處理 |
TRY...CATCH | DECLARE CONTINUE HANDLER FOR SQLEXCEPTION | 重寫錯誤處理邏輯 |
臨時表 #t | CREATE TEMPORARY TABLE t | 語法調整 |
工程化建議
- 將 Perl 腳本改寫為參數化、可配置（DSN、賬號、目標庫列表）。
- 引入
SQL::Translator 或自定義 AST 轉換器，實現語義級遷移而非文本替換。
- 建立「遷移驗證集」：對比源/目標過程元數據（參數、返回集）、樣本數據執行結果。
- 大批量遷移時，使用事務批次提交、並發控制、失敗重試機制。
- 上一篇文章： SQL Server 2008/2005 創建定時作業（SQL Server Agent Job）圖文教程
- 下一篇文章： Perl 自動為 SQL Server 所有用戶表創建主鍵索引：系統表查詢與動態 DDL 實戰
Copyright ©
程式碼之家 All Rights Reserved
