LINUX.ORG.RU

История изменений

Исправление 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.