作业帮perl 正则表达式/^\s*(.)\s*\=\s*\"(.open INPUT,"c:\\cellopt\\query_reg\\db.ini";while(){chomp;if (/^\s*(.)\s*\=\s*\"(.*)\"/){$$1 = $2;}}close INPUT;原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问
来源：学生作业帮助网 编辑：作业帮 时间：2024/12/02 02:53:12
xMoQ
!,@t) {7ƅ&%AAcLC20 0*@E#д _=wfV M DA{ UfWA}Ot{<s#Dza.oX[.i{ɲ7Xrnvx+G^879nxXϳrq T* '9 GZ7SN.Gɫ/d V"2.H"C=zjy}e6F.4=wzD/ Ln=%Vkcð biVX]j-S9*UހCca 8L,Q 'Pf٩dg݉)0MsZj_O$qި;4: Z/F'|b"KUÿzHSR͑Y
Wl6U*K. »kv3 t+ʬMѳp=A*1ZzYI*Bfɱ&SZt]ƒDQhZ^X&X*\yWAbQC:m?&Q X)?
perl 正则表达式/^\s*(.)\s*\=\s*\"(.open INPUT,"c:\\cellopt\\query_reg\\db.ini";while(){chomp;if (/^\s*(.)\s*\=\s*\"(.*)\"/){$$1 = $2;}}close INPUT;原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问
perl 正则表达式/^\s*(.)\s*\=\s*\"(.
open INPUT,"c:\\cellopt\\query_reg\\db.ini";
while(){
chomp;
if (/^\s*(.)\s*\=\s*\"(.*)\"/){
$$1 = $2;
}
}
close INPUT;
原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问题的.
perl 正则表达式/^\s*(.)\s*\=\s*\"(.open INPUT,"c:\\cellopt\\query_reg\\db.ini";while(){chomp;if (/^\s*(.)\s*\=\s*\"(.*)\"/){$$1 = $2;}}close INPUT;原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问
代码没有问题.
将db.ini文件的内容逐行读出来,并进行正则匹配,将所有符合下面匹配规则的行的等号左边有效字符串（可能会为空）作为变量的名字,并将等号右边的有效字符串作为变量的值
匹配规则是,字符串必须是以至少一个空格开头,然后有或者没有除了换行符以外的任意字符串,然后再接至少一个空格,然后是=号,然后再接至少一个空格,然后是冒号”,然后是除了换行符以外的任意字符串,最后是冒号“