用 Perl DBI 实现 Oracle 导出文本
提供本人写的一个工具:Oracle unload tool, 用perl写的,可把oracle的数据表导出成文本,参数很灵活,效率也不错,虽然比不上用c写的(例如sqluldr),实测大致有sqluldr的60%左右,但也可以接受了,每秒能卸出10000至50000行不等,5-10MB/s,视实际环境而定。 优点:直接以源码发布,可移植性强,linux/unix/windows下都能用,只要配置好oracle客户端环境及perl环境(DBI+DBD::Oracle)即可。并且,稍加修改也可用于其它数据库,只要提供了DBD驱动的都行。 缺点:暂时不支持BLOB、CLOB等字段的导出,以后有时间的话再说。 源码如下(