打印

aaaa_123

如果列中有字母[a-z]特征  就将本列及相邻列打印
把在每行中有字母的那一列及下一列打印
不管字母列出现在那个位置，都把有字母列和下一列一起打印
字母列[a-z]判断条件4至7个
Thank
3 4 3 4 3 32 23 werwer 3234
3 43 3
4 23 2 2 1 3 eete 4322 3rer342
etette 4354
3|3|erqb|200|21
5|5|2|24|sdtsa|3224
erwe|4234

得到它
werwer 3234
eete 4322
etette 4354

erqb|200
sdtsa|3224
erwe|4234

aaaa_123

Thank you all

baby_神

你把你的最终需求说出来吧，这种X-Y问题

aaaa_123

baby_神 发表于 2017-09-28 09:01
你把你的最终需求说出来吧，这种X-Y问题

我想把在每行中有字母的那一列及下一列打印
不管字母列出现在那个位置，都把有字母列和下一列一起打印
字母列[a-z]判断条件4至7个

这就是最终需求哦
werwer 3234
eete 4322
etette 4354

erqb|200
sdtsa|3224
erwe|4234

wh7211

回复 1# aaaa_123


这段代码没有限制字母列[a-z]判断条件。

1. awk '{l=split($0,s,"[ |]",t);for(i=1;i<=l;i++){if(s[i]~/^[a-z]+$/){print s[i]t[1]s[i+1]}}}' file

复制代码

aaaa_123

回复 5# wh7211

Thank

然后一看  注册是2007年 老码农了

可惜了在线时间...

aaaa_123

Thank大家      

wh7211

回复 1# aaaa_123


字母列[a-z]判断条件4至7个。

文件1内容如下：
0 0 0 0
1 a 1 10
2 aa 2 20
3 aaa 3 30
4 aaab 4 40
5 aaabb 5 50
6 aaabbb 6 60
7 aaabbbc 7 70
8 aaabbbcc 8 80
3 aaa 3 30 5dddee555 5 50
4 aaab 4 40 7dddeeef777 7 70
3|3|aaaa|4|40
4|4|4|4|bbbb|4
cccc|4
ddd|3
eeeeeee|7
ffffffff|8

1. awk 'function p(){if(a>=4&&a<=7){print s[i]t[1]s[i+1];j=++m};a=0};{l=split($0,s,"[ |]",t);for(i=1;i<=l;i++){if(s[i]~/[a-z]/){m=split(s[i],f,"");for(j=1;j<=m;j++){if(f[j]~/[a-z]/){a++}else{p()}};p()}}}' 1

复制代码

输出如下：
aaab 4
aaabb 5
aaabbb 6
aaabbbc 7
5dddee555 5
aaab 4
7dddeeef777 7
aaaa|4
bbbb|4
cccc|4
eeeeeee|7

WilliBhamlll

1. awk -F'[ |]' --posix '/\|/{f("|");next}{f(" ")}function f(fs){for(i=1;i<=NF;i++)if($i ~ /^[a-z]{4,7}$/)print $i fs $++i}' file

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.         while(/(\w{4,})(\W+)(?=(\w+))/g){
   
7.                 my @ary = ($1, $2, $3);
   
8.                 next unless($ary[0] =~ /[a-z]{4}/);
   
9.                 next if($ary[0] =~ /[a-z]{8}/);
   
10.                 print(@ary, "\n"), last;
    
11.         }
    
12. }
    
13. 
    
14. __DATA__
    
15. 3 4 3 4 3 32 23 werwer 3234
    
16. 3 43 3
    
17. 4 23 2 2 1 3 eete 4322 3rer342
    
18. etette 4354
    
19. 3|3|erqb|200|21
    
20. 5|5|2|24|sdtsa|3224
    
21. erwe|4234

复制代码