给定一个绝对路径或相对路径(在类unix系统中)，我希望在解析任何中间符号链接之后确定目标的完整路径。同时还可以解析~用户名符号。
如果目标是一个目录，则可以将chdir()放入该目录，然后调用getcwd()，但我确实希望从shell脚本而不是编写C helper来完成此操作。不幸的是，shell倾向于试图向用户隐藏符号链接的存在(这是OS X上的bash):
$ ls -ld foo bar
drwxr-xr-x 2 greg greg 68 Aug 11 22:36 bar
lrwxr-xr-x 1 greg greg 3 Aug 11 22:36 foo -> bar
$ cd foo
$ pwd
/Users/greg/tmp/foo
$
我想要的是一个函数resolve()，这样当从上面的例子中的tmp目录执行时，resolve("foo") == "/Users/greg/tmp/bar"。
当前回答
我的2分钱。这个函数是POSIX兼容的，源和目标都可以包含->。但是，我还没有让它与容器换行符或制表符的文件名一起工作，因为ls通常有这些问题。
resolve_symlink() {
test -L "$1" && ls -l "$1" | awk -v SYMLINK="$1" '{ SL=(SYMLINK)" -> "; i=index($0, SL); s=substr($0, i+length(SL)); print s }'
}
我认为这里的解决方案是file命令，使用一个自定义魔术文件，只输出所提供的符号链接的目标。
其他回答
function realpath {
local r=$1; local t=$(readlink $r)
while [ $t ]; do
r=$(cd $(dirname $r) && cd $(dirname $t) && pwd -P)/$(basename $t)
t=$(readlink $r)
done
echo $r
}
#example usage
SCRIPT_PARENT_DIR=$(dirname $(realpath "$0"))/..
把一些给定的解决方案放在一起，知道readlink在大多数系统上可用，但需要不同的参数，这对我来说在OSX和Debian上工作得很好。我对BSD系统不太确定。也许条件需要为[[$OSTYPE != darwin*]]，以仅从OSX中排除-f。
#!/bin/bash
MY_DIR=$( cd $(dirname $(readlink `[[ $OSTYPE == linux* ]] && echo "-f"` $0)) ; pwd -P)
echo "$MY_DIR"
我的答案在这里Bash:如何获得一个符号链接的真正路径?
但简而言之，在脚本中非常方便:
script_home=$( dirname $(realpath "$0") )
echo Original script home: $script_home
这些是GNU coreutils的一部分，适合在Linux系统中使用。
为了测试一切，我们把symlink放到/home/test2/，修改一些额外的东西，并从根目录运行/调用它:
/$ /home/test2/symlink
/home/test
Original script home: /home/test
在哪里
Original script is: /home/test/realscript.sh
Called script is: /home/test2/symlink
我最喜欢的一个是realpath foo
realpath - return the canonicalized absolute pathname
realpath expands all symbolic links and resolves references to '/./', '/../' and extra '/' characters in the null terminated string named by path and
stores the canonicalized absolute pathname in the buffer of size PATH_MAX named by resolved_path. The resulting path will have no symbolic link, '/./' or
'/../' components.
下面是如何使用内联Perl脚本在MacOS/Unix中获得文件的实际路径:
FILE=$(perl -e "use Cwd qw(abs_path); print abs_path('$0')")
类似地，要获取符号链接文件的目录:
DIR=$(perl -e "use Cwd qw(abs_path); use File::Basename; print dirname(abs_path('$0'))")
