flying roc

MD5使用使用md5对字符串加密perl 中的md5需要安装md5包yum -y install perl-Digest-MD5test.pl文件内容#!/usr/bin/perluse 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:ODBCSQL_SERVERDBD-ODBC下载地址perl DBI动态切换连接数据源一 如下方式连接数据库odbc.ini文件部分内容[ODBC]……[mydsn]driver=/opt/xxx/xx.so……sub dbi_connect{# mydsn需配置,查看odbc.ini里面配置的名称，如为mydsnmy $DSN="mydsn";my $user="testuser";my $pass="shure123";my $dbh = DB