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

perl 正则表达式/^s*(.)s*=s*"(.
open INPUT,"c:\cellopt\query_reg\db.ini";
while(){
chomp;
if (/^s*(.)s*=s*"(.*)"/){
$$1 = $2;
}
}
close INPUT;
原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问题的.
紫色芬芳 1年前 已收到1个回答 举报
赞

0ming0 春芽

共回答了18个问题采纳率：94.4% 举报

代码没有问题.
将db.ini文件的内容逐行读出来,并进行正则匹配,将所有符合下面匹配规则的行的等号左边有效字符串（可能会为空）作为变量的名字,并将等号右边的有效字符串作为变量的值
匹配规则是,字符串必须是以至少一个空格开头,然后有或者没有除了换行符以外的任意字符串,然后再接至少一个空格,然后是=号,然后再接至少一个空格,然后是冒号”,然后是除了换行符以外的任意字符串,最后是冒号“

1年前

7
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.019 s. - webmaster@yulucn.com