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

Windows19

回复 24# moperyblue


几行就很快得到结果 测试b文件上几百行都久哦

Windows19

sunzhiguolu 发表于 2016-12-27 15:11
回复 25# Windows19
试了没有，可以正确调用吗? => perl abc.pl b a

按你说的那样试了 返回信息
=> perl abc.pl b a
-bash: =: command not found

Windows19

sunzhiguolu 发表于 2016-12-27 15:17
回复 28# Windows19
perl ./abc.pl b a 这样是了吗?

嗯是的 执行后
perl ./abc.pl b a
返回
Use of uninitialized value in concatenation (.) or string at ./abc.pl line 21, <> line 134084.
Use of uninitialized value in concatenation (.) or string at ./abc.pl line 21, <> line 134084.

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
将执行结果贴出来我看下。

上面的就是执行结果

Windows19

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

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

Windows19

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

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

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

Windows19

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

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

Windows19

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

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