一个删除失效链接的方法
时间：2007-10-21 来源：wheer
曾经找到过一个查找失效链接的脚本，老长老长的，效率也不怎样，今天偶然发现了一个简洁的办法：
其中find . -type l就不说了，找链接的，perl的选项-nl应该是处理换行的，把末尾的回车去掉，-e就是执行后面的语句，如果该文件不存在就打印。
如果想删除再加一句好了：
或者更简单点：
|
find . -type l | perl -nle '-e || print' |
其中find . -type l就不说了，找链接的，perl的选项-nl应该是处理换行的，把末尾的回车去掉，-e就是执行后面的语句，如果该文件不存在就打印。
如果想删除再加一句好了：
|
find . -type l | perl -nle '-e || print' | perl -nle 'unlink;' |
或者更简单点：
|
find . -type l | perl -nle '-e || unlink' |
相关阅读 更多 +
