Задача: Найти в текущем каталоге все символьные ссылки на файлы, находящиеся не в текущем каталогепомогите плз
>Задача: Найти в текущем каталоге все символьные ссылки на файлы, находящиеся не
>в текущем каталоге
>
>помогите плзНу.. а чем помочь?.. собственно :-)
open,fstat.. etc.
В общем ман читай.
набросок на tcl..
#!/bin/tclsh
set wd [ pwd ]
foreach name [ glob -- * ] {
if [ catch { file link $name } link ] {
continue
}
if { [ file normalize [ file dirname $link ] ] != $wd } {
puts "$name -> $link , target out of current dir."
}
# need more tests ?
if { ! [ file exists $link ] } {
puts "$name -> $link , not existing target"
}
}
---
често заявляю - скрипт не тестил, после работы от tcl и так мозги сводит..
кто-нибудь знает, как это сделать с помощью awk?
>кто-нибудь знает, как это сделать с помощью awk?
file * | awk -F: '/symbolic link to/{print$1}'
>>кто-нибудь знает, как это сделать с помощью awk?
>
>
>file * | awk -F: '/symbolic link to/{print$1}'Не получилось с налету с авком
Вот без авка вариант
ls -l | grep '\->' | while read s; do
[ "$PWD" = "$(dirname "${s##*-> }")" ] || echo ${s% ->*} | sed 's/^\(\S\+\s\+\)\{7\}//' ;
done
>набросок на tcl..
......
>често заявляю - скрипт не тестил, после работы от tcl и так
>мозги сводит..Зачем же тогда так над собой издеваться?
>>набросок на tcl..
>......
>>често заявляю - скрипт не тестил, после работы от tcl и так
>>мозги сводит..
>
>Зачем же тогда так над собой издеваться?
почему-же издеваться ?
элементарно набросал 15 строчек..
издеваться это если реально потестить - наделать странных ссылок в каталоге и смотреть что будет в разных вариациях..
оставил сие занятие вопрошающему ;-)