Perl写的ETL工具

this is a pm for ETL,now the first version support DB2,in the features，maybe add mysql，Oracle etc.

---

perl连接DB2方式1：DBI::DBD 1组成部分 -getDbHandler 同DBconnect()，建立并获取数据库连接 -PrepareExecuteSql 预编译SQL -TransRollback 出错事务回滚 -disconnect 与DBconnect()相反，销毁数据库连接 2执行部分 -executeSQL 执行完SQL要我们手动关闭连接，用于处理多行SQL -executeOnceSQL 执行完SQL会自动关闭连接。 -getSelect 获取结果集，然后自己写while进行处理。（内部无日志版getStatement） -getAllCount 获得表中记录总数，参数是表名 -getCountBySQL 通过SQL获得表中记录总数，参数是SQL，如“select count(0) from mk_vsdm.a”返回的是数组的第一个，所以不要select多个字段 -dropTables 删除表，如果存在DBI::DBD连接，使用它，没有就用db2cmd删除。可以容错。参数是模式名+表名组成的多个字符串数组，参数可以是1个，也可以是多个 -isDb2TableExist 检测表名是否存在 perl连接DB2方式2：