Как получить имя ключа реестра из открытого дескриптора ключа в Perl?

Question

У меня есть функция perl, которая принимает открытый объект ключа реестра. Теперь я хочу получить имя ключа, который представляет этот объект. Как получить ключ Имя?

Я использую Win32 :: Registry module.

Answer 1

Просматривая источник, он не похож на Win32 :: Registry, который позволит вам взять ручку и вернуться к ключу. Я вижу три способа обойти это:

1. Вести список возвращенных объектов из Open и путь к ним самостоятельно.
2. Взломайте модуль (создайте его подкласс, измените источник), чтобы сделать за вас # 1.
3. Или расширить Win32 :: Registry API, чтобы сделать то, что показано в этом ответе stackoverflow: Определить путь к ключу реестра из дескриптора HKEY в C ++