Мы переносим домашние папки в новую файловую систему, и я ищу способ автоматизировать ее с помощью Perl или сценария оболочки. У меня нет особого выбора в языках программирования, поскольку системы являются проприетарными кластерами хранения, которые должны оставаться как можно более неизменными.
Задача: В каталоге / home / у меня есть домашние папки различных пользователей aaa, bbb, ccc, ... и у них есть определенные разрешения и право владения пользователем / группой, которые должны оставаться неизменными при миграции на / newhome /. Вот пример того, что нужно перенести из / home:
drwxr-xr-x 3 aaaaa xxxxxxxxx 4096 Feb 26 2008 aaaaa/
drwxrwxrwx 88 bbbbbbb yyyyyy 8192 Dec 16 16:32 bbbbbbb/
drwxr-xr-x 6 ccccc yyyyyy 4096 Nov 24 04:38 ccccc/
drwxr-xrwx 36 dddddd yyyyyy 4096 Jun 20 2008 dddddd/
drwxr-xr-x 27 eee yyyyyy 4096 Dec 16 02:56 eee/
Итак, точно такие же папки с разрешениями и владельцами должны быть созданы в / newhome. Копирование / перемещение файлов не должно быть проблемой, поскольку это будет обработано позже.
Кто-нибудь работал над таким сценарием? Я действительно новичок в Perl, поэтому мне нужна помощь.