findbl (fslint-2.44) | : | findbl (fslint-2.46) | ||
---|---|---|---|---|
skipping to change at line 135 | skipping to change at line 135 | |||
case "$mode" in | case "$mode" in | |||
dangling) | dangling) | |||
#perl -nle '-e || print' | #this is much faster than below | #perl -nle '-e || print' | #this is much faster than below | |||
#/usr/share/dict/words is 45424 lines which is 0.12s for | #/usr/share/dict/words is 45424 lines which is 0.12s for | |||
#perl and 3.8s for shell while read! should be OK though? | #perl and 3.8s for shell while read! should be OK though? | |||
#Note also this doesn't distinguish EPERM and ENOENT | #Note also this doesn't distinguish EPERM and ENOENT | |||
while read; do file="$REPLY"; [ -e "$file" ] || echo $file; done | | while read; do file="$REPLY"; [ -e "$file" ] || echo $file; done | | |||
tr '\n' '\0' | | tr '\n' '\0' | | |||
xargs -r0 ls -lUd -- | | xargs -r0 ls -lUd -- | | |||
sed 's/.*[0-9]\{2\} \(.*\)/\1/' ;; #only leave link -> target | sed 's/.*[0-9]\{2\} \(.* ->.*\)/\1/' ;; #only leave link -> target | |||
suspect) | suspect) | |||
grep "${ASC_01}.*${ASC_01}/" | #get absolute links | grep "${ASC_01}.*${ASC_01}/" | #get absolute links | |||
sed -e "s/${ASC_01}.\//${ASC_01}$EPWD\//g" | #change rel to abs paths | sed -e "s/${ASC_01}.\//${ASC_01}$EPWD\//g" | #change rel to abs paths | |||
grep -E "${ASC_01}(.*)/[^/]+${ASC_01}\1" | #find suspect links | grep -E "${ASC_01}(.*)/[^/]+${ASC_01}\1" | #find suspect links | |||
sed -e "s/${ASC_01}.*${ASC_01}/ /g" ;; #drop work column | sed -e "s/${ASC_01}.*${ASC_01}/ /g" ;; #drop work column | |||
absolute|relative|redundant) | absolute|relative|redundant) | |||
grep -E "$search_expr" | | grep -E "$search_expr" | | |||
tr '\1' ' ' ;; | tr '\1' ' ' ;; | |||
esac | esac | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |