多行匹配查询-求救

langren868

比如“-query 'SELECT
SerialCode, CfmDate, TransDate, TransTime, IndiInstFlag, TransAcntCode, CardNo, CaptAcntCode, FundAcntCode, BusinessCode, ReturnCode, FundCode, AppVol, AppAmnt, CfmVol, CfmAmnt, DiscountRateOfCommission, Commission, AgencyFee, Duty, OtherFee1, NAV, TradingPrice, BookDate, ValidPeriod, BranchCode, PrintCount, SubbranchCode, TACode, BankRemitFlag, CurrencyType,
ManagerID,Rate,FeeAll,VolAmntFlag
FROM
[&"TableName"]”

  怎么匹配查询出这段内容最简单呢？这段是要查询出来的内容，有多行。

  谢谢！

langren868

好心人帮帮忙吧！

langren868

   
   新手报到都没个好心人帮下吗？哎！

liyangole

回复 3# langren868

这个 你试试！
    #!/usr/bin/perl -w
while(<DATA>){
if (m#-query \'select#i .. m#\[&\"tablename\"\]#i){
   print;
}
}
__DATA__
hello the world
“-query 'SELECT
SerialCode, CfmDate, TransDate, TransTime, IndiInstFlag, TransAcntCode, CardNo, CaptAcntCode, FundAcntCode, BusinessCode, ReturnCode
, FundCode, AppVol, AppAmnt, CfmVol, CfmAmnt, DiscountRateOfCommission, Commission, AgencyFee, Duty, OtherFee1, NAV, TradingPrice, B
ookDate, ValidPeriod, BranchCode, PrintCount, SubbranchCode, TACode, BankRemitFlag, CurrencyType,
ManagerID,Rate,FeeAll,VolAmntFlag
FROM
[&"TableName"]”
hello the world
hello the world
hello the world
hello the world
hello the world

homedw

如果你仅仅为了学习，可以去下个正则匹配器，在里面练熟咯。。。这个不是很难挖。。。

2gua

呃，有人回答了。

langren868

我试了下：
  
while (my $file1=<DSX>)
{
if (m#-query \'select#i .. m#\[&\"tablename\"\]#i){
   print TEXT "$&";
}

}       
       
但是没看到输出。

liyangole

回复 7# langren868

$&只是匹配 开头和结尾
试试这个
    #!/usr/bin/perl -w
open F,">text.txt"||die "can't open: $!\n";
select F;
while(<DATA>){
if (m#-query \'select#i .. m#\[&\"tablename\"\]#i){
   print ;
}
}
close F;
select STDOUT;

homedw

4楼正解的哇！可以输出啊。。。

langren868

回复 8# liyangole


    多谢8楼！
   是能查询出来，可是有多个这样的匹配，匹配出来的就中间多了很多不是这样的数据了。