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

sunzhiguolu

回复 30# Windows19

• #!/usr/bin/perl
• use strict;
• use warnings;
• my ($NS, %hKeys) = (0, ());
• while (<>){
•     print "|||$_" if ($. == 134084);    # 这里加个断点
•     if (@ARGV){
•         next if (/\A\s*\z/);
•         chomp;
•         my $k = /\A\d/ ? 'N' : 'S';
•         $hKeys{$k}{$_} = 1;
•         next;
•     }
•     my $N = grep {$hKeys{'N'}{$_}} /\d+/g;
•     my $S = grep {$hKeys{'S'}{$_}} /[a-z]+/gi;
•     $NS++ if ($S and $N);
•     $hKeys{'S'}{'!C'}++ if ($S);
•     $hKeys{'N'}{'!C'}++ if ($N);
• }
• print join ("\n", "Num Str : $NS", "Strings : $hKeys{'S'}{'!C'}", "Numbers : $hKeys{'N'}{'!C'}");
  

sunzhiguolu

回复 30# Windows19

• #!/usr/bin/perl
• use strict;
• use warnings;
• my ($NS, %hKeys) = (0, ());
• while (<>){
•     print "|||$_" if ($. == 134084);    # 这里加个断点
•     if (@ARGV){
•         next if (/\A\s*\z/);
•         chomp;
•         my $k = /\A\d/ ? 'N' : 'S';
•         $hKeys{$k}{$_} = 1;
•         next;
•     }
•     my $N = grep {$hKeys{'N'}{$_}} /\d+/g;
•     my $S = grep {$hKeys{'S'}{$_}} /[a-z]+/gi;
•     $NS++ if ($S and $N);
•     $hKeys{'S'}{'!C'}++ if ($S);
•     $hKeys{'N'}{'!C'}++ if ($N);
• }
• print join ("\n", "Num Str : $NS", "Strings : $hKeys{'S'}{'!C'}", "Numbers : $hKeys{'N'}{'!C'}");
  

sunzhiguolu

将执行结果贴出来我看下。

Windows19

sunzhiguolu 发表于 2016-12-27 15:26
将执行结果贴出来我看下。

$ perl ./abc.pl b a
Use of uninitialized value in concatenation (.) or string at abc.pl line 22, <> line 47.
Use of uninitialized value in concatenation (.) or string at abc.pl line 22, <> line 47.
Num Str : 0
Strings :
Numbers :
$

Windows19

sunzhiguolu 发表于 2016-12-27 15:26
将执行结果贴出来我看下。

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

$ cat b
3156855556887945655564
578987456516516516564654465654
236587987964556112312365656546335746515
5686811553354534651561562252555454554
000000000000000000000
fbwekryewkhgfbsiklkeyfg
sjfhiuesrtewtfrhfkjsyf
skjbfistewgfbsfilsefuslufhuwrefgv
skldfnisyrgewfbsdlfewofgksflisfygcb
wDSTKELTHRGVSLkajlfesrhgerlkFfF
wwwwwwwwwwww

$ perl ./abc.pl b a
Use of uninitialized value in concatenation (.) or string at ./abc.pl line 22, <> line 47.
Use of uninitialized value in concatenation (.) or string at ./abc.pl line 22, <> line 47.
Num Str : 0
Strings :
Numbers :
$

Windows19

sunzhiguolu 发表于 2016-12-27 15:26
将执行结果贴出来我看下。

上面的就是执行结果

moperyblue

b文件原先不是用空行分隔吗?

moperyblue

在b文件最后那个数字串下面加一行空行

Windows19

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

b在最后那个数字串后面加1行 加2行空行都试了哦

sunzhiguolu

回复 36# Windows19
cat -n a
cat -n b

我看下，执行结果。