计算不同字符串类型出现次数

sunzhiguolu

回复 39# Windows19
再试下，

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($NS, %hKeys) = (0, ());
   
6. while (<>){
   
7.     next if (/\A\s*\z/);
   
8.     s/\r?\n//;
   
9.     if (@ARGV){
   
10.         my $k = /\d/ ? 'N' : 'S';
    
11.         $hKeys{$k}{$_} = 1;
    
12.         next;
    
13.     }
    
14.     my $N = grep {$hKeys{'N'}{$_}} /\d+/g;
    
15.     my $S = grep {$hKeys{'S'}{$_}} /[a-z]+/ig;
    
16.     $NS++ if ($S and $N);
    
17.     $hKeys{'S'}{'!C'}++ if ($S);
    
18.     $hKeys{'N'}{'!C'}++ if ($N);
    
19. }
    
20. 
    
21. print join ("\n", "Num Str : $NS", "Strings : $hKeys{'S'}{'!C'}", "Numbers : $hKeys{'N'}{'!C'}", "");
    

复制代码

Windows19

moperyblue 发表于 2016-12-27 15:44
在b文件最后那个数字串下面加一行空行

将b文件内匹配到字符串输出到1个临时文件上 然后再计算这个临时文件内得到各个类型字符串 这样思路写会不会快点?

不过像是不适合第二种需求  可以先实现第一点需求的

moperyblue

回复 42# Windows19


你是在什么环境下测试的? cygwin?

more a

1. kkwrhuhej0rfgr[g'e]r5686811553354534651561562252555454554[tgjreigk
   
2. jdbgeklrjhge78y/'\]r'\5686811553354534651561562252555454554]'g/e]r\t'kt5g']e\t[4]yg.;'vf
   
3. '/\'re \e\rglljker er\ l;gy\e'ghke]\['5;l4yhgl\rt'h 578987456516516516564654465654tlhgtrlhg
   
4. 236587987964556112312365656546335746515 '/t\hytr'htmrkhlt;hbjntrklgj
   
5. mfgre'tet;\t'tg,er\a'g;.e'r;g ergergermg  236587987964556112312365656546335746515 hrthrth\/h/rt\h
   
6. grjengle43klhtgnldgd;g\';w\wf   gh hllktgregKHGKJHGKgkigkbKGKF578987456516516516564654465654
   
7. gffdjkgblhnlk5686811553354534651561562252555454554dfgvdfgvdfg
   
8. /'\;.;''\.\. \/'.\.''\3156855556887945655564\';\.;\'./\
   
9. DFGVGf578987456516516516564654465654SDGFDGGGGGGGGG
   
10. fesr-jklhsgherl35t4jgferg645er8te4t68t45e46t4eg57898745651651646564rger63465566
    
11. /'\ergre'g\retg;retg;e[p'4ktgmef'g236587987964556112
    
12. grg4354tgveknrgler]\t';34\tfe651561562252555454554
    
13. ftdgerertr36tglkjver;tgk;46gl;mvf98796455611231236565gfdgdg
    
14. 29058036y3442-56y8352fbwekryewkhgfbsiklkeyfg>=5ttgrkeltgjrekt73408tgre
    
15. sdfmslfmkwo340ifmks'/.'we.fds'.f'ws.fwf/'\./\sjfhiuesrtewtfrhfkjsyf/'\\/\
    
16. 2325252452452543 22424<skjbfistewgfbsfilsefuslufhuwrefgv8932 4723985
    
17. 32478230752398 skldfnisyrgewfbsdlfewofgksflisfygcb ';.....\;.
    
18. sjfhiuesrtewtfrhfkjsyf  '\/EWR/\W'/REF
    
19. FEW\'2/35RF\SF skjbfistewgfbsfilsefuslufhuwrefgv
    
20. \\453TERT34\3RT0skldfnisyrgewfbsdlfewofgksflisfygcb
    
21. ];'\';GCF68KJGBJKL;\';JKLL'\\n/sjfhiuesrtewtfrhfk
    
22. skjbfistewgfbsfilsefu];'\';GCF68KJGBJKL;\';J
    
23. vh678yiuh88679skldfnisyrgewfbsdlfewofgks/'\/'\
    
24. jkhl. lili fbwekryewkhgfbsiklk980
    
25. ff3\23\rd 32rr\'fbwekryewkhgfbsiklkeyfg\'we236587987964556112312365656546335746515r
    
26. '/\w'r234rf'\sjfhiuesrtewtfrhfkjsyf/'\/3156855556887945655564sfds
    
27. 2544325';\';fbwekryewkhgfbsiklkeyfg435sjfhiuesrtewtfrhfkjsyf
    
28. ]'f/]ew;'532]3156855556887945655564sfesfs578987456516516516564654465654
    
29. ewfkwekr2w34per315685555688794565556\/@fbwekryewkhgfbsiklkeyf
    
30. ewfkwekr2w34per4fbwekryewkhgfbsiklkey\/@315685555688794565556

复制代码

more b

1. 3156855556887945655564
   
2. 578987456516516516564654465654
   
3. 236587987964556112312365656546335746515
   
4. 5686811553354534651561562252555454554
   
5. 000000000000000000000
   
6. 
   
7. fbwekryewkhgfbsiklkeyfg
   
8. sjfhiuesrtewtfrhfkjsyf
   
9. skjbfistewgfbsfilsefuslufhuwrefgv
   
10. skldfnisyrgewfbsdlfewofgksflisfygcb
    
11. wDSTKELTHRGVSLkajlfesrhgerlkFfF
    
12. wwwwwwwwwwww

复制代码

1. awk 'function cnt(a,p){for(i in a)if($0~i){p?c[FNR]++:c[FNR]--;break}}NR==FNR{if(!NF){f=1;next};f?b[$0]:a[$0];next}{cnt(a,1);cnt(b)}END{for(i in c)c[i]?c[i]>0?x++:y++:z++;print "数字串:"x+z RS "字母串:"y+z RS "总共:"z}' b a
   
2. 数字串:12
   
3. 字母串:10
   
4. 总共:2

复制代码

Windows19

sunzhiguolu 发表于 2016-12-27 15:55
回复 39# Windows19
再试下，

测试主题是可以了  可惜不能精确匹配a文件内更复杂字符串  现在只是有针对性的写哦

sunzhiguolu

回复 44# Windows19
那你放开了写， a 文件内的字符串是个啥情况？

Windows19

moperyblue 发表于 2016-12-27 16:00
回复 42# Windows19

是说结果对  只是1m左右慢 你测试多点数据就知道了

Windows19

回复 43# moperyblue

是的
cygwin

Windows19

sunzhiguolu 发表于 2016-12-27 15:55
回复 39# Windows19
再试下，

不好意思是我测试太大意了没同时放2种字符进b文件 你的没问题的
谢谢老师

Windows19

谢谢老师们  都可以

sunzhiguolu

回复 48# Windows19

没同时放2种字符进b文件

能否解释下，不太明白啊？

另外，

测试主题是可以了  可惜不能精确匹配a文件内更复杂字符串  现在只是有针对性的写哦

顺便说一下？