请帮助a、b指定文档的提取及排序统计

bmne

请先给出第一个代码：精确输出匹配的行
a.txt
12a..
a876
67..a
ab34...
..abc123
56A..
AB78...
..ABC765

b.txt
a
ab

要求：提取精确输出匹配的行
只匹配a文档中只包含有唯一b文档字母的行。                  比如：b.txt是ab   a.txt中输出行是ab34...
注意，b文档是小写字母，匹配a文档全部是大写字母的行也输出。比如：b.txt是ab   a.txt中输出行是AB78...

最终结果（设定为8.txt）：
12a..
a876
67..a
ab34...
56A..
AB78...


再请给出第二个代码：

a.txt
是上面的输出结果8.txt

b.txt
同上面的b.txt

要求：按b.txt内容，根据8.txt里面对应的字母匹配，计算字母重复次数由大到小统计排序

最终结果：

重复次数    对应的字母        (这里只是说明，这一行内容不需要)
   3            a
   1            A
   1            ab
   1            AB



谢谢了！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (@aData, %hStat, $once);
   
6. while (<>){
   
7.     if (@ARGV){
   
8.         push (@aData, $_);
   
9.         next;
   
10.     }
    
11.     if (!$once++){
    
12.         chomp (@aData = sort {$a cmp $b and length ($b) <=> length ($a)} @aData);
    
13.     }
    
14.     my $match = 0;
    
15.     foreach my $v (@aData){
    
16.         if (/($v)/i){
    
17.             print;
    
18.             $hStat{$1}++;
    
19.             $match++;
    
20.         }
    
21.         last if ($match);
    
22.     }
    
23. }
    
24. 
    
25. print "\n";
    
26. print "$hStat{$_}\t$_\n" for sort {$hStat{$b} <=> $hStat{$a}} keys %hStat;

复制代码

bmne

回复 2# sunzhiguolu



谢谢。辛苦

看来晚上没有大神来，都休息或忙去了

jcdiy0601

1. #!/usr/bin/env python
   
2. #_*_ coding:utf-8 _*_
   
3. 
   
4. import re
   
5. 
   
6. def func(file,l):
   
7.     f = open(file,'r')
   
8.     for line in f.readlines():
   
9.         line = line.strip('\n')
   
10.         l.append(line)
    
11.     return l
    
12. 
    
13. if __name__ == '__main__':
    
14.     #1
    
15.     la = []
    
16.     lb = []
    
17.     lc = []
    
18.     func('a.txt',la)
    
19.     func('b.txt',lb)
    
20.     for x in la:
    
21.         p1 = re.search('[a-zA-Z]+',x)
    
22.         for y in lb:
    
23.             if p1.group() == y or p1.group() == y.upper():
    
24.                 x = x + '\n'
    
25.                 lc.append(x)
    
26.     f = open('c.txt','w')
    
27.     f.writelines(lc)

复制代码

1. awk --re-interval '{gsub("[^a-zA-Z]+","");a[$1]++}END{for(i in a)print a[i],i}' c.txt

复制代码

bmne

回复 4# jcdiy0601



谢谢，谢谢

还是大神厉害啊。等了一晚上，没人帮助，自己想了好几个小时，解决不了

bmne

来问问大神 1# moperyblue


真不出手了？我在等你的代码，看看怎样的方法管道实现的grep或awk加上sort
唉！得罪大神了我

bmne

回复 4# jcdiy0601


大神，麻烦你重新再给另外的一个可否？辛苦了

moperyblue

回复 6# bmne


我不是大神  没必要等一个人的代码 我不是专门负责解决你的问题的 别人也有自己的时间安排啊 有问题发出来 一起讨论 有愿意帮你的 自然会帮你

bmne

回复 8# moperyblue



谢谢回复

知道你热心，才问你下。也知道你忙。我明白你的意思了，不好意思打扰了，对不起

bmne

回复 4# jcdiy0601

1. 112
   
2. 123
   
3. 1234
   
4. 1
   
5. 12
   
6. 123
   
7. 1234
   
8. 1
   
9. 1
   
10. 1
    
11. 2
    
12. 2
    
13. 12
    
14. 12
    
15. a
    
16. ab
    
17. abc
    
18. abcd
    
19. a
    
20. ab
    
21. abc
    
22. abcd
    
23. a
    
24. a
    
25. a
    
26. ab
    
27. A
    
28. AB
    
29. ABC
    
30. ABCD
    
31. A
    
32. AB
    
33. ABC
    
34. ABCD
    
35. A
    
36. A
    
37. A
    
38. AB
    
39. 123a...
    
40. 123ab....
    
41. 1234abc...
    
42. 123456a
    
43. 123456ab
    
44. 123456abcd

复制代码

看图，请问怎回事？