sort2tab な Perl one liner

なんか、タイトルが変だが、uniq -c | sort とかやったときには、頻度と中身の間はスペース1個なので、タブ区切りだと思って処理するとなんかできないぃ、ということが昔あった。

15407 研究      Research Activity
12489 蛋白質    Biologically Active Substance
11523 遺伝子    Gene or Genome

てなわけで、sort2tab.pl （sort | uniq -c | sort -n とかやっていた名残り）とかいうスクリプトを書いたりしていたのだが、ワンライナーで書けるのでここに記録しておく。

$ perl -lne '$_ =~ /\s*(\d+)\s(.*)/; print join("\t", $1, $2)' ファイル名