Re: [問題] 多行的統計
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)
→
02/24 10:50, , 1F
02/24 10:50, 1F
→
02/24 10:53, , 2F
02/24 10:53, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
