PATH の中の重複したパスを削除する。どこかでひろってきたのをそのまま利用w

remove_duplicate_path

function remove_duplicate_path(){
  eval "export PATH=$(perl -e '           #\
    my $e = shift;                        #\
    for(split q/:/, $ENV{"PATH"}){        #\
      if("$_" ne "" && -e "$_"){          #\
        $n{$_} or $n{$_} = ++$i;          #\
      }                                   $\
    }                                     #\
    $, = q/:/;                            #\
    %n = reverse %n;                      #\
    print map { $n{$_} }                  #\
    sort { $a <=> $b } keys %n            #\
  ')"
}