问题标题:
perl正则表达式/^s*(.)s*=s*"(.openINPUT,"c:celloptquery_regdb.ini";while(){chomp;if(/^s*(.)s*=s*"(.*)"/){$$1=$2;}}closeINPUT;原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问
问题描述:

perl正则表达式/^s*(.)s*=s*"(.

openINPUT,"c:celloptquery_regdb.ini";

while(){

chomp;

if(/^s*(.)s*=s*"(.*)"/){

$$1=$2;

}

}

closeINPUT;

原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问题的.

冯艳君回答:
  代码没有问题.   将db.ini文件的内容逐行读出来,并进行正则匹配,将所有符合下面匹配规则的行的等号左边有效字符串(可能会为空)作为变量的名字,并将等号右边的有效字符串作为变量的值   匹配规则是,字符串必须是以至少一个空格开头,然后有或者没有除了换行符以外的任意字符串,然后再接至少一个空格,然后是=号,然后再接至少一个空格,然后是冒号”,然后是除了换行符以外的任意字符串,最后是冒号“
查看更多
其它推荐
热门其它推荐