Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Perl Path Editor for Unix

by duelafn (Priest)
on Sep 15, 2005 at 16:00 UTC ( #492304=note: print w/ replies, xml ) Need Help??


in reply to Perl Path Editor for Unix

This sort of thing is not too difficult to do in pure shell commands. Here's some code I picked up a while back after a quick google search. (original source)

Example Usage

add_path $HOME/bin add_path $HOME/perl PERL5LIB

The functions

# @(#)Copyright (c) 1991 Simon J. Gerraty # # This file is provided in the hope that it will # be of use. There is absolutely NO WARRANTY. # Permission to copy, redistribute or otherwise # use this file is hereby granted provided that # the above copyright notice and this notice are # left intact. # # Modified by Dean Serenevy (2005) for more robust quoting # is $1 missing from $2 (or PATH) ? no_path() { eval "case \":\$${2-PATH}:\" in *:\"$1\":*) return 1;; *) +return 0;; esac"; } # if $1 exists and is not in path, append it add_path() { [ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="\$${2:-P +ATH}:$1"; } # if $1 exists and is not in path, prepend it pre_path() { [ -d ${1:-.} ] && no_path $* && eval ${2:-PATH}="$1:\$${2 +:-PATH}"; } # if $1 is in path, remove it del_path() { no_path $* || eval ${2:-PATH}=`eval echo :'$'${2:-PATH}: +| sed -e "s;:$1:;:;g" -e "s;^:;;" -e "s;:\$;;"`; }

Good Day,
    Dean


Comment on Re: Perl Path Editor for Unix
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://492304]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (15)
As of 2015-07-06 20:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (81 votes), past polls