perl访问mssql并迁移到mysql数据库脚本实例.pdfVIP

linux 下没有专门为 mssql 设计的访问库，不过介于 mssql 本是从 sybase 派生出来的， 因此用来访问 sybase 的库自然也能访问 mssql ，freetds 就是这么一个实现。 perl 中通常使用 dbi 来访问数据库，因此在系统安装了 freetds 之后，可以使用 dbi 来通 过 freetds 来访问 mssql 数据库，例子： 代码如下 : using dbi; my $cs = driver={freetds};server= 主 机 ;port=1433;database= 数 据 库 ;uid=sa;pwd= 密 码 ;tds_version=7.1;charset=gb2312; my $dbh = dbi-gt;connect(dbi:odbc:$cs) or die $@; 因为本人不怎么用 windows ，为了研究 qq 群数据库， 需要将数据从 mssql 中迁移到 mysql 中，特地为了 qq 群数据库安装了一个 windows server 2008 和 sql server 2008r2,不过过几天评 估就到期了，研究过 mysql 的 workbench 有从 ms sql server 迁移数据的能力，不过对于 qq 群这种巨大数据而且分表分库的数据来说显得太麻烦，因此写了一个通用的 perl 脚本，用 来将数据库从 mssql 到 mysql 迁移， 结合 bash，很方便的将这二十多个库上百张表给转移过 去了， perl 代码如下： 代码如下 : #!/usr/bin/perl use strict; use warnings; use dbi; die usage: qq db\n if @argv != 1; my $db = $argv[0]; print connectin to databases $db...\n; my $cs = driver={freetds};server=mssql 的 服 务 器;port=1433;database=$db;uid=sa;pwd=mssql 密码 ;tds_version=7.1;charset=gb2312; sub db_connect { my $src = dbi-gt;connect(dbi:odbc:$cs) or die $@; my $target = dbi-gt;connect(dbi:mysql:host=mysql 服务器 , mysql 用户名 , mysql 密码 ) or die $@; return ($src, $target); } my ($src, $target) = db_connect; print reading table schemas\n; my $q_tables = $src-gt;prepare(select name from sysobjects where xtype = u and name != dtproperties;);# 获取所有表名 my $q_key_usage = $src-gt;prepare(select table_name, column_name from information_schema.key_column_usage;);# 获取表的主键 $q_tables-gt;execute; my @t