求助，怎么用零寬斷言

drakness

我有個(gè)一個(gè)文本，內(nèi)容是這樣的，

1. 45SD123SD123TP_T_ACTRow-X (SX)ad45SD123SD123TP_T_ACTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad
   
2. 45SD123SD123TP_T_ACTRow-X (SX)ad45SD123SD123TP_T_ACTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad
   
3. 45SD123SD123TP_T_ACTRow-X (SX)ad45SD123SD123TP_T_ACTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad

復(fù)制代碼

我想得到這樣的數(shù)據(jù)

1. TP_T_ACT  TP_T_ACT  TP_T_ACT
   
2. TP_T_ACT  TP_T_ACT  TP_T_ACT
   
3. TP_T_ACT  TP_T_ACT  TP_T_ACT

復(fù)制代碼

我自己嘗試使用了grep -oP 但是得到的數(shù)據(jù)是
TP_T_ACT
TP_T_ACT
TP_T_ACT
TP_T_ACT

我想在一行輸出，perl怎么做到？

MMMIX

回復(fù) 1# drakness

1. 
   
2.     perl -nE 'local $,=" "; say m/TP_T_ACT/g' data.txt
   

復(fù)制代碼

drakness

回復(fù) 2# MMMIX


    這個(gè)數(shù)據(jù)不是確定的

MMMIX

回復(fù) 3# drakness


    那重新描述問題吧

drakness

MMMIX 發(fā)表于 2015-07-28 14:49
回復(fù) 3# drakness

1. 45SD123SD123TP_X_ACTRow-X (SX)ad45SD123SD123FK_T_ASTRow-X (SX)wwwad45SD123SD123TI_TY_ACTRow-X (SX)wwwad
   
2. 45SD123SD123TOT_ACTOSRow-X (SX)ad45SD123SD123TL_QT_ATCTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad
   
3. 45SD123SD123TP_T_ACTRow-X (SX)ad45SD123SD123TP_T_ACTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad

復(fù)制代碼

數(shù)據(jù)就是這樣的

MMMIX

回復(fù) 5# drakness


    了解

drakness

回復(fù) 4# MMMIX


    沒看出來這個(gè)贊，贊的是什么？

MMMIX

回復(fù) 7# drakness


    沒贊啊

substr函數(shù)

回復(fù) 7# drakness

不會(huì)零寬斷言
覺得應(yīng)該可以這樣來...

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. while (<DATA>) {
   
4.     my @PATS = /\d([A-Z]+(?:_[A-Z]+)*_[A-Z]+)Row/g;
   
5.     say join( "  ", @PATS );
   
6. }
   
7. 
   
8. __DATA__
   
9. 45SD123SD123TP_X_ACTRow-X (SX)ad45SD123SD123FK_T_ASTRow-X (SX)wwwad45SD123SD123TI_TY_ACTRow-X (SX)wwwad
   
10. 45SD123SD123TOT_ACTOSRow-X (SX)ad45SD123SD123TL_QT_ATCTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad
    
11. 45SD123SD123TP_T_ACTRow-X (SX)ad45SD123SD123TP_T_ACTRow-X (SX)wwwad45SD123SD123TP_T_ACTRow-X (SX)wwwad
    

復(fù)制代碼

分享一個(gè)笑話
LZ不要生氣哦

尋找解決方案的提問藝術(shù) http://72891.cn/thread-4118053-1-1.html

Q) 我怎么...？
A) 你可以這樣...
Q) 哦，這個(gè)數(shù)據(jù)是不確定的
A) 數(shù)據(jù)是？
Q) 數(shù)據(jù)是...
A) 哦，了解，那我的方法不對(duì)，你可以這樣來...
Q) 哦，不好意思，那我的數(shù)據(jù)要復(fù)雜得多
A) 哦，那重新描述問題吧
B) 哦，贊一個(gè)
Q) 沒看出來這個(gè)贊，贊的是什么？
Q) 數(shù)據(jù)是這樣的...
A) 哦，那我的方法還是不對(duì)，這樣吧...
Q) 不好意思哦，我上面只是舉例..不是實(shí)際情況中數(shù)據(jù)
A) 到底實(shí)際數(shù)據(jù)是什么？你到底要干什么？@#$$%

....  N天后       

Q) 這帖子沉到底了。頂上來。
Q) 沉底了，頂上來呀。
Q) 請(qǐng)?jiān)试S俺再頂上來 ...
Q) 頂，再頂上來，期待回復(fù) I N G 。。。。。
Q) 如果大伙有時(shí)間幫忙頂上來。
C) 你妹！這事老頂上來？
Q) 跟我一起頂上來呀。。。。。
Q) 沉底了呀，我再頂。
Q) 救命呀。。。。
   

MMMIX

substr函數(shù) 發(fā)表于 2015-07-28 21:27
回復(fù) 7# drakness

不會(huì)零寬斷言

http://72891.cn/forum.p ... mp;fromuid=20342513