Кликните на дугме

Синхронизација текстуалних фајлова - једноставно Перл скрипта

Календар Јул 9, 2010 | Аутор: димио

Десило се да сам постала заиста потребно да синхронизујете фајлове између ограниченим скупом Мемори Стицк ™ и рачунар. У овом рукама копирање и назад, сећајући се шта последње датотеке едитед - досадан и "монструми" су непотребни због синхронизације примитивног задатка, јер рекурзивно директоријум синхронизација и осталих звона и пиштаљке не треба.

Одлучио сам да скицирам једноставан перл скрипту (јер драгуљ имам код куће и на послу, за разлику од нпр басх), који би ме прошао на одређеним датотекама и синхронизује их на основу датума последње модификације, другим речима - најновији фајлови ће бити замењен застарела.

Не пре рећи него учинити. Скрипта пореди пар фајлова излистаних у хашиш у телу писма, а ако је неопходно, обавља синхронизацију. Текст писма испод, може бити корисно да неко други од мене: 

 # / Уср /! Бин / перл # ========================================= ======== # ОПИС: примитивни сценарио за Паирвисе синхронизацију листе # текстуалних датотека.  Усклађивање се заснива на време # последње измене датотеке.  # # УПОТРЕБА: Приручник на листу филес пар одсто датотеке, између којих треба да се синхронизују # и покрените скрипту.  # # АУТОР: димио # УРЛ: хттп://ввв.димио.орг # Верзија: 0.1 # ЦРЕАТЕД: 2010-07-08 # ==================== ============================= захтевају 5.8.8; коришћење упозорења; усе стрицт; То Усе кодирање утф8 ', СТДОУТ =>' утф8 '; наша $ ВЕРЗИЈА = '0 .1'; # пара да синхронизујете фајлове приказане као # испод исправност имена, као и постојање датотека се не проверава!  моји одсто фајлови = ('/ цигдриве/е/тст1/доц_аццоунтинг.одб' => './тст2/датабасе.одб', '/ цигдриве/е/тст1/табле.одс' => './тст2/филе_фор_тест. ОДС ', # и тако даље до победе); # Процес је почео ...  фореацх ми $ фајл (тастери одсто филес) {иф ((Стат ($ фајл)) [9]> (Стат (РСД фајлови {$ филе})) [9]) {# ако први фајл је промењен након другог - да ажурира друга отворена (ОД, "<", $ фајл) ор дие "Не могу да отворим $ филе \ н", мој @ тмп = <ФРОМ>; близу (ОД); отварају (ДА, '>' $ филе $ {филе} ) ор дие "Не могу да отворим фајлове долара {$ филе} \ н"; штампа на @ тмп; блиски (ДА); штампе. '->' $ филе $ {филе} '.  се ажурира из '$ филе,' \ н ";} елсиф ((Стат ($ фајл)) [9] <(Стат (РСД фајлови {$ филе})) [9]) {# ако секунду касније него први - ажурирање. прво се отварају (ОД, '<', $ фајлови {} $ фајл) ор дие "Не могу да отворим датотеке РСД {} $ фајл \ н", мој @ тмп = <ФРОМ>; близу (ОД); отварају (ДА, ">", $ фајл) ор дие "Не могу да отворим $ фајл \ н"; штампане @ тмп; близу (ДА), принт "<-" $ фајл "..  се ажурира из ', $ фајлова {$ филе}, "\ н";} елсе {принт' = ажурирања није потребна "," \ н ";} # остало # исправка није потребно под нормалним условима, али под Виндовс време промена је увек другачији у милисекундама} излаз 0;

ПС Узгред, опет ми је драго што ја користим Линук - пар минута направљених за скрипту са иконе пречице за Гноме панела.
То је такође извор скрипта је на располагању, као и увек, у " Софтваре ".

Више о сличним темама:

Категорија Филед ундер: Линук , Цодинг | Таг Тагс: , , , се | Коментари Но Цомментс

Леаве а Репли