vipath

Usage

$ alias editpath='~/bin/vipath; . /tmp/tpb.setpath'

#!/usr/bin/perl

$filename = "/tmp/tpb.path.edit";
open(EDITABLE, "> $filename");
foreach $piece (split(/:/, $ENV{PATH}))
{
   print EDITABLE "$piecen";
}
close(EDITABLE);

system("vi $filename");

open(EDITABLE, "< $filename");
@path = <EDITABLE>;
close(EDITABLE);
grep(chomp, @path);
unlink("$filename");

$filename = "/tmp/tpb.setpath";
open(SETPATH, "> $filename") 
   || die "can't open $filename: $!";
print SETPATH "export PATH=", join(":", @path), "n";
close(SETPATH);

Updates needed

• remove files like /tmp/tpb.setpath after running