Run this program and add the output to your
.bashrc or .bash_profile or autoexec.bat
#!/usr/bin/perl --
use strict;
use warnings;
use Config;
Main( @ARGV );
exit( 0 );
sub Main {
my $sep = $Config{path_sep};
my $pat = 'export PATH=%s$PATH';
$pat = 'set PATH=%s%%PATH%%' if $sep eq ';' ;
printf "$pat\n", join $sep, (
uniq(
grep length,
grep defined,
map { $Config{$_} }
qw' installsitebin installvendorbin installbin '
),
),
'';
}
sub uniq (@) {
my %seen = ();
grep { not $seen{$_}++ } @_;
}
__END__
The output looks like
export PATH=/usr/bin:$PATH
or
set PATH=c:\perl\5.12.2\bin\MSWin32-x86-multi-thread;c:\perl\site\5.12
+.2\bin;c:\perl\5.12.2\bin;%PATH%
It is based on
$ perl -V:installsitebin -V:installvendorbin -V:installbin -V:insta
+llsitescript -V:installvendorscript -V:installscript
installsitebin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread';
installvendorbin='';
installbin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread';
installsitescript='c:\perl\site\5.12.2\bin';
installvendorscript='';
installscript='c:\perl\5.12.2\bin';
$ perl -V:installsitebin -V:installvendorbin -V:installbin -V:insta
+llsitescript -V:installvendorscript -V:installscript
installsitebin='/usr/bin';
installvendorbin='/usr/bin';
installbin='/usr/bin';
installsitescript='UNKNOWN';
installvendorscript='UNKNOWN';
installscript='/usr/bin';