→ adu:p大您的我還在揣摩XD 謝謝您！ 02/24 10:50
→ paulpu:不客氣 叫我pu就可以了 (誤 02/24 10:53
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)