求助，怎么用零宽断言

drakness

我有个一个文本，内容是这样的，

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

复制代码

我想得到这样的数据

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

复制代码

我自己尝试使用了grep -oP 但是得到的数据是
TP_T_ACT
TP_T_ACT
TP_T_ACT
TP_T_ACT

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

MMMIX

回复 1# drakness

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

复制代码

drakness

回复 2# MMMIX


    这个数据不是确定的

MMMIX

回复 3# drakness


    那重新描述问题吧

drakness

MMMIX 发表于 2015-07-28 14:49
回复 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

复制代码

数据就是这样的

MMMIX

回复 5# drakness


    了解

drakness

回复 4# MMMIX


    没看出来这个赞，赞的是什么？

MMMIX

回复 7# drakness


    没赞啊

substr函数

回复 7# drakness

不会零宽断言
觉得应该可以这样来...

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
    

复制代码

分享一个笑话
LZ不要生气哦

寻找解决方案的提问艺术 http://bbs.chinaunix.net/thread-4118053-1-1.html

Q) 我怎么...？
A) 你可以这样...
Q) 哦，这个数据是不确定的
A) 数据是？
Q) 数据是...
A) 哦，了解，那我的方法不对，你可以这样来...
Q) 哦，不好意思，那我的数据要复杂得多
A) 哦，那重新描述问题吧
B) 哦，赞一个
Q) 没看出来这个赞，赞的是什么？
Q) 数据是这样的...
A) 哦，那我的方法还是不对，这样吧...
Q) 不好意思哦，我上面只是举例..不是实际情况中数据
A) 到底实际数据是什么？你到底要干什么？@#$$%

....  N天后       

Q) 这帖子沉到底了。顶上来。
Q) 沉底了，顶上来呀。
Q) 请允许俺再顶上来 ...
Q) 顶，再顶上来，期待回复 I N G 。。。。。
Q) 如果大伙有时间帮忙顶上来。
C) 你妹！这事老顶上来？
Q) 跟我一起顶上来呀。。。。。
Q) 沉底了呀，我再顶。
Q) 救命呀。。。。
   

MMMIX

substr函数 发表于 2015-07-28 21:27
回复 7# drakness

不会零宽断言

http://bbs.chinaunix.net/forum.p ... mp;fromuid=20342513