- 论坛徽章:
- 0
|
本帖最后由 cjxstudent 于 2014-11-04 22:08 编辑
输入文件a04.txt只有一行:
(SELECT BILL_NO FROM PAY_VOUCHER_BILL PVB,PAY_VOUCHER OP WHERE PVB.ID = OP.VOUCHER_BILL_ID AND P.OLD_PAY_ID = OP.ID) AS OLD_BILL_NO,
Perl脚本如下:
#!C:/bin/perl.exe
open INPUT,"a04.txt";
open OUTPUT,">a06.txt";
select OUTPUT;
while (<INPUT>){
$string=$_;
if($string=~m/from(.*)where/i){$get=$1;}
print "结果是:",$get,"\n";
}
出来的结果是
结果是: PAY_VOUCHER_BILL PVB,PAY_VOUCHER OP
结果是: PAY_VOUCHER_BILL PVB,PAY_VOUCHER OP
居然打印了两次结果.请高手指点.
用的是activeperl for windows 5.014版 |
|