pipeline for top 100 repeated word list in article/book

perl -MList::MoreUtils=natatime -lane ’END{ $it  = natatime 100, sort {$cnt{$b} <=> $cnt{$a}} keys %cnt; print for map {join  qq(\t), $_, $cnt{$_}} $it->() } $cnt{$_}++ for @F’

Posted via email from purl's posterous