hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added -v option.

This commit is contained in:
hjp 2007-01-04 17:00:45 +00:00
parent f347d67dcf
commit 520a335ee6
3 changed files with 60 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pathtools/apppath.pl
View File

@ -6,7 +6,7 @@ apppath - append directories to path
=head1 SYNOPSIS
apppath [-c] directory...
apppath [-c] [-v variable] directory...
=head1 DESCRIPTION
@ -22,6 +22,12 @@ prints the new path on stdout.
Check whether the directories exist before adding them. Nonexistent
directories are silently ignored.
=item B<-v> I<variable>
Use the environment variable I<variable> instead of PATH.
This is useful for manipulating other PATH-like variables, like
LD_LIBRARY_PATH, PERL5LIB, etc.
=back
=head1 AUTHOR
@ -31,14 +37,19 @@ Peter J. Holzer <hjp@hjp.at>.
=cut
use strict;
my $path = $ENV{PATH};
my @path = split(/:/, $path);
my $check;
use Getopt::Long;
use Pod::Usage;
if ($ARGV[0] eq '-c') {
$check = 1;
shift;
}
my $check;
my $debug;
my $var = 'PATH';
GetOptions("check" => \$check,
"debug" => \$debug,
"var=s" => \$var,
) or pod2usage(2);
my $path = $ENV{$var} || '';
my @path = split(/:/, $path);
if ($#ARGV == 0 && $ARGV[0] =~ /:/) {
@ARGV = split(/:/, $ARGV[0]);

24
pathtools/delpath.pl
View File

@ -6,13 +6,25 @@ delpath - delete directories from path
=head1 SYNOPSIS
delpath directory...
delpath [-v variable] directory...
=head1 DESCRIPTION
delpath deletes the directories given as arguments from the PATH and
prints the new path on stdout.
=head1 OPTIONS
=over 4
=item B<-v> I<variable>
Use the environment variable I<variable> instead of PATH.
This is useful for manipulating other PATH-like variables, like
LD_LIBRARY_PATH, PERL5LIB, etc.
=back
=head1 AUTHOR
Peter J. Holzer <hjp@hjp.at>.
@ -20,12 +32,20 @@ Peter J. Holzer <hjp@hjp.at>.
=cut
use strict;
use Getopt::Long;
use Pod::Usage;
my $debug;
my $var = 'PATH';
GetOptions("debug" => \$debug,
"var=s" => \$var,
) or pod2usage(2);
if ($#ARGV == 0 && $ARGV[0] =~ /:/) {
@ARGV = split(/:/, $ARGV[0]);
}
my $path = $ENV{PATH};
my $path = $ENV{$var};
my @path = split(/:/, $path);
my %del;

27
pathtools/preppath.pl
View File

@ -6,7 +6,7 @@ preppath - prepend directories to path
=head1 SYNOPSIS
preppath [-c] directory...
preppath [-c] [-v variable] directory...
=head1 DESCRIPTION
@ -22,6 +22,12 @@ eliminates any duplicates and prints the new path on stdout.
Check whether the directories exist before adding them. Nonexistent
directories are silently ignored.
=item B<-v> I<variable>
Use the environment variable I<variable> instead of PATH.
This is useful for manipulating other PATH-like variables, like
LD_LIBRARY_PATH, PERL5LIB, etc.
=back
=head1 AUTHOR
@ -31,14 +37,19 @@ Peter J. Holzer <hjp@hjp.at>.
=cut
use strict;
my $path = $ENV{PATH};
my @path = split(/:/, $path);
my $check;
use Getopt::Long;
use Pod::Usage;
if ($ARGV[0] eq '-c') {
$check = 1;
shift;
}
my $check;
my $debug;
my $var = 'PATH';
GetOptions("check" => \$check,
"debug" => \$debug,
"var=s" => \$var,
) or pod2usage(2);
my $path = $ENV{$var} || '';
my @path = split(/:/, $path);
if ($#ARGV == 0 && $ARGV[0] =~ /:/) {
@ARGV = split(/:/, $ARGV[0]);