多重關(guān)鍵字匹配定位

zhuzhujd

現(xiàn)有以下的文本信息

  1………………A………………
  2………………………………
  3…………A…………………………
  4………C…………………
  5…………B…………………………
  6…………………………
  7…………C………………
  8…………A……………………
  9…………………………
  10…………………………
  11………………………………
  12…………………………
  13…………B………………
  14…………A…………
  15………………C…………

  目標：用perl提取出從關(guān)鍵字A到關(guān)鍵字C之間且包含關(guān)鍵字B的信息, 且關(guān)鍵字A和關(guān)鍵字B之間的距離最短.（在上述例子中，就是第3行到第7行的信息。在實際文本中，沒有上述的行號）
  我的想法是：提取每個關(guān)鍵字A所在行號，提取每個關(guān)鍵字B所在的行號，然后計算出關(guān)鍵字A和關(guān)鍵字B行號之間的最小值，同時要求關(guān)鍵字B的行號一定要大于關(guān)鍵字A的行號（即不能是第13行到第14行）。在此基礎(chǔ)上計算出關(guān)鍵字A到關(guān)鍵字C的距離，然后提取相應(yīng)的信息。這樣就可以排除第14行到15行的相關(guān)文本，同時也不會只提取第3到第4行的信息。
  我目前看到的程序，都是每個關(guān)鍵字對應(yīng)一個行號.所以請教各位高手，該如何解決這個問題。

lkk_super

設(shè)定幾個狀態(tài)搞個狀態(tài)遷移圖出來就差不多了吧

zhuzhujd

請教樓上，如何做perl的狀態(tài)遷移圖？我是Perl的初學(xué)者。

104359176

1. qr/A[^AB]+B[^C]+C/

復(fù)制代碼

zhuzhujd

好像不對呀！我編了以下程序
my $file1="d:\\test\\test.txt";
open (INPUT, "<$file1")         or die "Couldn't open $file1 forr reading: $!\n";
my $buf = <INPUT>;
  if ($buf =~qr/A[^AB]+B[^C]+C/){
   open OUTPUT, ">d:\\testout\\test1.txt" or die;
   print OUTPUT "$buf";
   close OUTPUT or die;
}
但是運行出來的結(jié)果和原先的表格一樣。請教我的程序那里有問題？謝謝!

mcshell

回復(fù) 5# zhuzhujd


    $/ 設(shè)置為空，讀取整個文本；
    默認是\n

zhuzhujd

回復(fù) 6# mcshell


    請教該如何修改？我剛開始學(xué)perl，很多命令還非常不熟悉。謝謝！

mcshell

1. perl -lne  'BEGIN{$/=undef};1 while(/(A[^AB]+B[^C]+C)(?{print $1})/g)' test.txt

復(fù)制代碼

回復(fù) 7# zhuzhujd


   

zhuzhujd

mcshell 發(fā)表于 2013-10-31 21:45
回復(fù) 7# zhuzhujd

因為類似的文本還有1000多個，我想用循環(huán)語句一次做完。你的方法只能做一個文件。可否請幫忙調(diào)試一下上面的語句。謝謝！

zhuzhujd

回復(fù) 8# mcshell

運行了上述程序，返回結(jié)果為：
can't find string terminator "'" anywhere before EOF at -e line 1.