Help for this page

Select Code to Download


  1. or download this
    perl  -F: -nale ' push @d, [@F]; END { print join "\n", map { join ":"
+, @$_} 
 grep { $c = $$_[1] eq $prec? $c+1:1; $prec = $$_[1]; $c>4? 0: 1} sort
+ {$a->[1] cmp $b->[1] || $b->[0] <=> $a->[0]} @d;};' file.txt
  2. or download this
    $ echo '20470:ZM:Samfya:Africa
> 61739:ZW:Chinhoyi:Africa
...
61739:ZW:Chinhoyi:Africa
47294:ZW:Chegutu:Africa
37423:ZW:Bindura:Africa