|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Smirnov Alexey 2:5020/400 21 Sep 2002 16:58:17
To : All
Subject : perl + rename backup files
--------------------------------------------------------------------------------
Hello All!
Есть сервер с линуксом. Hа нем запускается копирование рабочих баз:
/bin/cp -fpR --backup=numbered --update $WORKBASES $COPYDIR
соответсвенно в каталоге COPYDIR имею нумерованные копии файлов:
1SBLOB.DBF
1SBLOB.DBF.~1~
1SBLOB.DBF.~2~
1SBLOB.DBF.~3~
1SBLOB.DBF.~4~
и т.д.
(более свежий файл имеет большее число ~X~ на конце)
Собственно проблема - мне надо иметь каждый день ровно три копии каждого
файла. Т.е. перед началом копирования мне надо во всех подкаталогах так
сдвинуть нумерацию этих файлов, чтобы последний файл стал
<*.~2~>, предпоследний <*.~1~> ну и более рание удалить (уточнение, раз
их три копии то надо <~1~> удалить, <~2~> => <~1~>, а <~3~> => <~2~> и
после этого смело копировать). Мне приятель посоветовал написать скрипт на
перле. Пожалуйста посоветуйте как примерно это сделать.
--
Best regards
--- ifmail v.2.15dev5
* Origin: HOME (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
