История изменений
Исправление MKuznetsov, (текущая версия) :
где-то так :
foreach name [ split [ exec find -type f /dist ] "\n" ] {
set tail [ file tail $name ]
set dist($tail) $name
}
foreach name [ split [ read [ open $coolFile "r" ] ] "\n" ] {
set tail [ file tail $name ]
if [ info exist dist($tail) ] {
file copy -force -- $dist($tail) $cool($tail)
}
}
в принципе можно на любом языке, но сегодня уже давал ответы с tcl, так что пусть булет tcl.
Исправление MKuznetsov, :
где-то так :
foreach name [ split [ exec find -type f /dist ] "\n" ] {
set tail [ file tail $name ]
set dist($tail) $name
}
foreach name [ split [ read [ open $coolFile "r" ] "\n" ] {
set tail [ file tail $name ]
if [ info exist dist($tail) ] {
file copy -force -- $dist($tail) $cool($tail)
}
}
в принципе можно на любом языке, но сегодня уже давал ответы с tcl, так что пусть булет tcl.
Исходная версия MKuznetsov, :
где-то так :
foreach name [ split [ exec find -type f /dist ] "\n" {
set tail [ file tail $name ]
set dist($tail) $name
}
foreach name [ split [ read [ open $coolFile "r" ] "\n" ] {
set tail [ file tail $name ]
if [ info exist dist($tail) ] {
file copy -force -- $dist($tail) $cool($tail)
}
}
в принципе можно на любом языке, но сегодня уже давал ответы с tcl, так что пусть булет tcl.