Help for this page

Select Code to Download


  1. or download this
    history|awk '{a[$2]++ } END{for(i in a){print a[i] " " i}}'|sort -rn|h
+ead
  2. or download this
    history | perl -le 'while($l = <>) {$n=${[split(/\s+/,$l)]}[2];$h{$n}++;} $i=0;foreach $k (reverse sort {$h{$a}<=>$h{$b}} keys %h) {last if $i > 9; print "$h{$k} $k"; $i++;}'
  3. or download this
    history | perl -le 'while($l = <>) {$n=${[split(/\s+/,$l)]}[2];$h{$n}+
++;} $i=0;@a=reverse sort {$h{$a}<=>$h{$b}} keys %h; print "$h{$a[$_]}
+ $a[$_]" for (0..9)'