Shell Programming and Scripting

readlink does the same ....... I know
realpath does the same ....... I know
awk can do it ................ I know
perl can do it ............... I know
You're losing time ........... I know

filename=$1

# Squeeze double slashes.
filename="$(echo "$filename" | sed -r 's#/+#/#g')"

# Strip special '.' directory entries.
filename=$(echo "$filename" | sed -r ':a;s#^\./##;s#/\./#/#g;s#/\.$#/#;ta')

# Strip special '..' directory entries.
filename=$(echo "$filename" | sed -r ':a;$!N;$!ba;:b;s#^/\.\./#/#;s#/([^/.]|[^/.][^/]|[^/][^/.]|[^/]{3,})/\.\.(/|$)#/#;tb')

a=space" "tab$'\t'newline$'\nend'; echo "$a" | cat -A; b=$a; echo "$b" | cat -A

space tab^Inewline$
end$
space tab^Inewline$
end$

# Squeeze double slashes.
while true; do
    new=${filename//\/\//\/}
    [[ "$new" = "$filename" ]] && break
    filename=$new
done

# Strip special '.' directory entries.
filename=${filename##./}
while true; do
    new=${filename//\/.\//\/}
    [[ "$new" = "$filename" ]] && break
    filename=$new
done
filename=${filename%%/.}

#!/bin/sh

OLDIFS="$IFS" ; IFS="/"
VAR="$1"

# Split a//b/c/d/e into $1=a, $2="", $3=b, $4=c, ...
# Note NOT quoted, we depend on shell splitting here
set -- $VAR

# S is what gets appended to O every loop between sections.
# It starts blank unless we know the path is absolute.
S="" ; O="" ; [ -z "$1" ] && S="/"

while [ "$#" -gt 0 ]
do
        case "$1" in
        "")     ;; # Skip blanks, which mean doubled slashes
        [.])    ;; # Skip single dots, which mean same-dir
        [.][.])  # Double-dot means strip off last path segment
                TMP="$*" ; S2="" ; set -- $O ; O=""
                # Re-assemble path, up to but not including last segment
                while [ "$#" -gt 1 ] ; do O="${O}${S2}${1}" ; S2="/" ; shift ; done
                set -- $TMP     # Re-split remaining tokens
                ;;
        # Add segment to O
        *)      O="${O}${S}${1}"; S="/" ;;
        esac
        shift
done

IFS="$OLDIFS"

echo "$O"