引っ越し先検討。

外からだと、redが多い、というか、redだけなのだけど、どうやらredは人が多いらしいので、人間嫌いの僕としては人のあまりいないところへ、と思って、調べてみた。
redの人たち。

$ last | perl -e 'while(<>){$i++;} print $i,"\n";'
4510

他のとこの人たち。

$ cat blue  | perl -e 'while(<>){$i++;} print $i,"\n";'
1506
$ cat yellow  | perl -e 'while(<>){$i++;} print $i,"\n";'
1235
$ cat purple  | perl -e 'while(<>){$i++;} print $i,"\n";'
1475

redは三倍ですか。そうですか。
なんとなく、ランキング。一応個人情報保護風。

$ cat red | perl -e 'while(<>){$i++; ($n)=/^(\S+)\s/; $x{$n}++;} print "$i/",scalar keys%x,"\n"; @l=sort {$x{$b}<=>$x{$a}} keys%x;  print /kou21058/?$_:"********","\t$x{$_}\n" for@l' | head
4508/261
kou21058        178
********        117
********        88
********        82
********        81
********        80
********        79
********        77
********        75

だんとつですよ、僕。

$ cat red blue yellow purple | perl -e 'while(<>){$i++; ($n)=/^(\S+)\s/; $x{$n}++;} print "$i/",scalar keys%x,"\n"; @l=sort {$x{$b}<=>$x{$a}} keys%x;  print /kou21058/?$_:"********","\t$x{$_}\n" for@l' | head
8724/316
********        336
********        290
********        199
********        197
********        194
kou21058        178
********        168
********        139
********        139

上には上が…。

ということで、「ハッシュを値でソート(in Perl)」でした。*1

*1:あれ？引っ越し先は…。yellowでいっか。