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;:\$;;"`; }
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|