我们正在将主文件夹迁移到一个新的文件系统,我正在寻找一种使用 Perl 或 shell 脚本自动化它的方法。我在编程语言方面没有太多选择,因为系统是专有存储集群,应该尽可能保持不变。
任务:在目录 /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 很陌生,所以我需要帮助。