如何跟踪和全面报告一系列符号链接?

tcl有一个命令[file type$filename],如果是链接,它将返回“link”。它还有另一个命令[file link$filename],返回链接指向的内容。有了这两个命令,就可以获取一个链接并跟踪链接,直到得到一个实际的文件。

也许我的头上有这样的东西:

#!/usr/bin/tclsh

proc dereferenceLink {path {tree {}}} {
    if {[file type $path] == "link"} {
        set pointsTo [file link $path]
        if {[lsearch -exact $tree $path] >= 0} {
            lappend tree $path
            return "[join $tree ->] (circular reference)"
        } else {
            lappend tree $path
            return [dereferenceLink $pointsTo $tree]
        }
    } else {
        lappend tree $path
        return [join $tree "->"]
    }
}

puts [dereferenceLink [lindex $argv 0]]

您将得到如下输出:

foo->栏->baz

如果有一个圆形链接,它将看起来像:

foo->bar->baz->foo(圆形 参考文献)

如果您添加一个 print 循环内部:

http://mail.python.org/pipermail/python-ideas/2007-December/001254.html

这是我花了一段时间拼凑出来的一个bash脚本。它在 ls 指示符号链接以遍历链接的输出。我不能保证在边缘情况下的完美行为(例如,为了避免循环,在跟踪十个链接后放弃是很难编码的),但它对我来说效果很好。

#!/bin/bash 

function deref() {

    FILE="${1%/}"
    COUNT=0
    while [ -L "$FILE" ]; do
        TARGET=`ls -l "$FILE" | sed -e 's/^.*> //'`
        [ ${TARGET:0:1} == "/" ] || TARGET="`dirname $FILE`/$TARGET"

        # strip trailing slashes; -L cannot handle those
        FILE="${TARGET%/}"

        COUNT=$(( COUNT + 1 ))
        [ $COUNT -eq 10 ] && exit 1
    done
    echo $FILE

}

deref "$1"

在PHP中,您可以使用 is_link 和 readlink .

示例用法:

function dereference_link($path) {
  $parts = array();
  foreach (explode(DIRECTORY_SEPARATOR, $path) as $part) {
    $parts[] = $part;
    $partial = implode(DIRECTORY_SEPARATOR, $parts);
    if (is_link($partial)) {
      $result = dereference_link(readlink($partial) . substr($path, strlen($partial)));
      array_unshift($result, $path);
      return $result;
    }
  }
  return array($path);
}

如果您只需要知道最终的引用,php就可以 realpath 可以做到这一点的功能。