79 lines
1.1 KiB
Text
79 lines
1.1 KiB
Text
#
|
|
# substr -- a function to emulate the ancient ksh builtin
|
|
#
|
|
|
|
#
|
|
# -l == shortest from left
|
|
# -L == longest from left
|
|
# -r == shortest from right (the default)
|
|
# -R == longest from right
|
|
|
|
substr()
|
|
{
|
|
local flag pat str
|
|
local usage="usage: substr -lLrR pat string or substr string pat"
|
|
|
|
case "$1" in
|
|
-l | -L | -r | -R)
|
|
flag="$1"
|
|
pat="$2"
|
|
shift 2
|
|
;;
|
|
-*)
|
|
echo "substr: unknown option: $1"
|
|
echo "$usage"
|
|
return 1
|
|
;;
|
|
*)
|
|
flag="-r"
|
|
pat="$2"
|
|
;;
|
|
esac
|
|
|
|
if [ "$#" -eq 0 ] || [ "$#" -gt 2 ] ; then
|
|
echo "substr: bad argument count"
|
|
return 2
|
|
fi
|
|
|
|
str="$1"
|
|
|
|
#
|
|
# We don't want -f, but we don't want to turn it back on if
|
|
# we didn't have it already
|
|
#
|
|
case "$-" in
|
|
"*f*")
|
|
;;
|
|
*)
|
|
fng=1
|
|
set -f
|
|
;;
|
|
esac
|
|
|
|
case "$flag" in
|
|
-l)
|
|
str="${str#$pat}" # substr -l pat string
|
|
;;
|
|
-L)
|
|
str="${str##$pat}" # substr -L pat string
|
|
;;
|
|
-r)
|
|
str="${str%$pat}" # substr -r pat string
|
|
;;
|
|
-R)
|
|
str="${str%%$pat}" # substr -R pat string
|
|
;;
|
|
*)
|
|
str="${str%$2}" # substr string pat
|
|
;;
|
|
esac
|
|
|
|
echo "$str"
|
|
|
|
#
|
|
# If we had file name generation when we started, re-enable it
|
|
#
|
|
if [ "$fng" = "1" ] ; then
|
|
set +f
|
|
fi
|
|
}
|