package Public;our(@ISA,@EXPORT);require Exporter;@ISA=qw(Exporter);@EXPORT = qw(&GetCurrentDateTime &GetUUID &DateCheck &GetParam &GetJobState &GetDBHandle             &WriteDBLog &GetDBResult_Sing

设置HTTP代理:set http_proxy=http://user@passwd:proxy_server_ip:proxy_server_port然后运行 ppm install dbi；  perl -MCPAN -e shell o conf urllist unshift http://www.perl.com/CPAN/o conf commito c