39 lines
533 B
Perl
39 lines
533 B
Perl
|
#!@@@perl@@@ -w
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
delpath - delete directories from path
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
delpath directory...
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
delpath deletes the directories given as arguments from the PATH and
|
||
|
|
prints the new path on stdout.
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Peter J. Holzer <hjp@hjp.at>.
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
if ($#ARGV == 0 && $ARGV[0] =~ /:/) {
|
||
|
|
@ARGV = split(/:/, $ARGV[0]);
|
||
|
|
}
|
||
|
|
|
||
|
|
my $path = $ENV{PATH};
|
||
|
|
my @path = split(/:/, $path);
|
||
|
|
|
||
|
|
my %del;
|
||
|
|
for (@del{@ARGV}) {
|
||
|
|
$_ = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
@path = grep { !$del{$_} } @path;
|
||
|
|
|
||
|
|
print join(':', @path), "\n";
|