使用 Perl 腳本實現 SQL Server 表的備份與還原

前言

在 SQL Server 環境中，針對特定表進行資料備份與還原是常見的維護需求。雖然 SQL Server 內建了備份工具，但有時我們需要更靈活、自動化的方式來處理單一表的資料移動。本文介紹一個基於 Perl 的腳本，利用 bcp 公用程式實現指定表的資料導出與導入，並透過設定檔管理資料庫認證，提供互動式操作介面。

核心功能

• 支援資料表備份（導出）與還原（導入）兩種模式
• 從外部設定檔讀取資料庫帳號密碼，避免硬編碼
• 互動式提示輸入伺服器 IP、資料表名稱、儲存路徑等參數
• 內建帳號驗證機制，確保操作安全性
• 檔案存在時提供覆蓋確認，防止誤刪資料

環境準備

1. 建立設定檔

在 C 槽根目錄建立 config.txt，內容如下：

username:sa
password:passwd123!

請根據實際環境修改帳號與密碼。

2. Perl 執行環境

確保系統已安裝 Perl（腳本宣告使用 #!C:\Perl64\bin 路徑），並能正常呼叫 SQL Server 的 bcp.exe 工具。

腳本邏輯解析

讀取認證資訊

腳本會開啟 c:/config.txt，分別搜尋 username: 與 password: 關鍵字，擷取冒號後的字串作為登入憑證：

my $dir = "c:/";
my $filename = "config.txt";
# 讀取 username
# 讀取 password

互動式選單

啟動後顯示操作提示：

• 0：備份表（導出資料）
• 1：還原表（導入資料）

備份流程（輸入 0）

1. 輸入伺服器 IP（預設 localhost）
2. 輸入資料庫帳號，腳本比對 config.txt 中的 username
3. 輸入密碼，比對 config.txt 中的 password
4. 輸入要備份的表名稱（格式：database.schema.table，如 test.dbo.t1）
5. 輸入資料儲存路徑
6. 若檔案已存在，詢問是否刪除（y/n）
7. 呼叫 bcp 導出：
   bcp $table out $file -c -t ',' -m 1 -a 49152 -b 5000 -F 1 -S $server -U $user -P $pass

還原流程（輸入 1）

1. 同樣進行伺服器、帳號、密碼驗證
2. 輸入目標表名稱
3. 輸入備份檔案路徑
4. 確認檔案存在後，呼叫 bcp 導入：
   bcp $table in $file -c -t ',' -m 1 -a 49152 -b 5000 -F 1 -S $server -U $user -P $pass

關鍵參數說明

使用建議

• 正式環境建議將密碼加密儲存，或使用 Windows 整合驗證
• 大量資料操作時，可調整 -b 批次大小以優化效能
• 定期測試還原流程，確保備份檔案可用性

完整腳本下載

完整的 bcp.pl 腳本程式碼已包含上述所有邏輯，可直接部署使用。建議根據實際需求調整預設參數與錯誤處理機制。