以后给自己定一个规矩:以后写perl的脚本把配置的一些变量都写到一个配置文件里面:site_config.pl里面,然后在主程序perl脚本里面加上require 'site_config.pl';就可以了,类似于下面的格局:
公用的程序就放到common文件夹下,主程序放在progs下。
例如我这次perl连接oracle的脚本程序:
site_config的内容如下:
package config;
$aRoot = 'C:\cls\cn'; #程序所在根目录
$oRoot = 'E:\clsout\cn';#程序一些文件输出的根目录
$ip = localhost;
$orcl_sid_uat = 'orcl';
$orcl_user_uat = 'scott';
$orcl_pass_uat = 'oracle';
$debit_sid_uat_test = 'debituat_test';
$debit_user_uat_test = 'debit';
$debit_pass_uat_test = 'acs_debit';
主程序内容如下:
#------------------------