flying roc

MD5使用 使用md5对字符串加密 perl 中的md5 需要安装md5包 yum -y install perl-Digest-MD5 test.pl文件内容 #!/usr/bin/perl use strict; use Digest::MD5 qw(md5_hex); my $md5str=md5_hex("123X"); $md5str=~ tr [a-z] [A-Z]; print "md5str: $md5str \n"; 执行 [root@chain test]# perl test.pl

通过参数传递比较麻烦生成新的tpt文件也比较麻烦因此有没有不需要定义源表结构？目前好像都需要定义表结构。

参考连接 DBD:ODBC SQL_SERVER DBD-ODBC下载地址 perl DBI动态切换连接数据源 一 如下方式连接数据库 odbc.ini文件部分内容 [ODBC] … … [mydsn] driver=/opt/xxx/xx.so … … sub dbi_connect { # mydsn需配置,查看odbc.ini里面配置的名称，如为mydsn my $DSN="mydsn"; my $user="testuser"; my $pass="shure123"; my $dbh = DB