作者paulpu (paulpu)
看板Perl
标题Re: [问题] 多行的统计
时间Wed Feb 24 09:22:22 2010
open F,"data";@f=grep(!/^>/,<F>);close F;
for(@f){chomp;$a[$i++]{$_}++ for split //;$i=0;}
$r[$i++]=(sort{$$_{$b}<=>$$_{$a}} keys %$_)[0] for @a;
@a里面有每位的分布hash
@r为每位最多次出现结果
也只是受益良多的版众+1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.114.73.73
爬了文改一下
※ 编辑: paulpu 来自: 58.114.73.73 (02/24 10:23)
1F：→ adu:p大您的我还在揣摩XD 谢谢您！ 02/24 10:50
2F：→ paulpu:不客气 叫我pu就可以了 (误 02/24 10:53