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

Windows19

回复 10# zxy877298415


你好   计算数字串结果对了 字母串计算不对 还有总共的那个需求计算没打印出来   但我这边返回信息如下
shuzi:12
zifu:31
awk: cmd. line:1: (FILENAME=a.txt FNR=35) fatal: attempt to use array `n' in a scalar context
$

zxy877298415

回复 11# Windows19

1. awk '!/^ $/&&FNR==NR{if($0~/[0-9]/) a[$0];else b[$0];next}{for(i in a) {if(gsub(i,"&",$0)) {if(!p[$0]) {c++;p[$0]=1;n[$0]++}}}for(i in b) {if(gsub(i,"&",$0)) {if(!q[$0]) {d++;q[$0]=1;n[$0]++}}};}END{print "shuzi:"c"\nzifu:"d;for(i in n) {if(n[i]==2) s++}print "sum:"s}' b a  
   
2. shuzi:12
   
3. zifu:10
   
4. sum:2

复制代码

按照你给的例子没问题啊！ewfkwekr2w34per315685555688794565556\/@fbwekryewkhgfbsiklkeyf 这条不应该计入！

cao627

1. awk 'FNR==NR{if($0~/^[0-9]+$/)a[$0];if($0~/^[a-zA-Z]+$/)b[$0];next}{for(i in a){if($0 ~ i){c++;n[NR]++;break}};for(i in b){if($0 ~ i){d++;n[NR]++;if(n[NR] == 2){s++};break}}}END{print "shuzi:"c"\nzifu:"d"\nsum:"s}' b.txt a.txt

复制代码

moperyblue

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

复制代码

sditmaner

3156855556887945655564

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($NS, %hKeys) = (0, ());
   
6. while (<>){
   
7.     if (@ARGV){
   
8.         next if (/\A\s*\z/);
   
9.         chomp;
   
10.         my $k = /\A\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]+/gi;
    
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

谢谢各位老师  计算结果都正确  但是有点慢呢 测试b文件1m大小 a文件不到2m大小 等了26分钟还没没出结果 中途放弃了
请问还有快的么

sunzhiguolu

应该没有你说的那么慢吧?

moperyblue

回复 17# Windows19


测试数据应该跟你提供的数据有比较大的差别吧?

Windows19

回复 18# sunzhiguolu

是这样用法? perl 0 b.txt a.txt
这样返回信息哦
Use of uninitialized value in concatenation (.) or string at 00 line 21, <> line 47.
Use of uninitialized value in concatenation (.) or string at 00 line 21, <> line 47.
Num Str : 0
Strings :
Numbers :