perl - 是否有一个 augeas 镜头，可以像在 .gitolite.rc 中一样编辑 perl 哈希？

Question

我想编辑 gitolite3 的配置文件，它是用 perl 编写的，看起来像这样：

# comments

# comments

%RC = (

    # ------------------------------------------------------------------

    # comments
    UMASK                           =>  0077,

    # comments
    GIT_CONFIG_KEYS                 =>  '',

    # comments
    ROLES => {
        READERS                     =>  1,
        WRITERS                     =>  1,
    },

    # comments
    ENABLE => [

        # comments

            'help',
            'desc',
            'info',
            'perms',
            'writable',

        # comments

    ],

);

# ------------------------------------------------------------------------------
# comments
1;

# comments

如果没有可用的 augeas，我需要保留评论的东西——它们对我和未来的管理员来说非常方便。

Answer 1

由于 gitolite.rc 直接是一个关联数组，您可以考虑在 perl 中编写您的实用程序。

src/lib/Gitolite/Rc.pm已经向您展示了如何加载该文件，它提供了一种查询键/值的方法：

Usage: gitolite query-rc -a
gitolite query-rc [-n] [-q] rc-variable
-a print all variables and values (first level only)
-n do not append a newline if variable is scalar
-q exit code only (shell truth; 0 is success)

但是您可以通过添加键/值并将配置写回的方式来扩展这些功能。