#!/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 installsitescript installvendorscript installscript ' ), ), ''; } sub uniq (@) { my %seen = (); grep { not $seen{$_}++ } @_; } __END__
In reply to Re^2: installing perl 5.12.3
by Anonymous Monk
in thread installing perl 5.12.3
by rob171171
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |