open INPUT, "c:\\cellopt\\query_reg\\db.ini";while(<INPUT>){ chomp; if (/^\s*(.*?)\s*\=\s*\"(.*)\"/){ $$1 = $2; } }close INPUT;原程序执行有效.这个段落是原程序一部分,我查看过,原样复制过来,没有问题的.
参考资料:perl编程24学时教程