我的比特币钱包中有大量私钥转储（约 25K），但我没有映射到每个私钥的关联地址。我需要地址才能重新创建钱包，因为我需要跳过一些地址而不是将它们添加到新钱包中。
我被指向一个包含转换方法的 python 工具：pywallet，但我宁愿在 Perl 中执行此操作，这样我可以更轻松地编写它。我还发现了这两个 JavaScript 站点：bitaddress.org和brainwallet.org。
我在 CPAN 上找到了以下库，听起来它们可能有助于执行此操作，但我不知道如何将这些部分组合在一起：Math::EllipticCurve::Prime、Crypt::OpenSSL::EC。前者的文档说它真的很慢，后者可能更快，因为它使用 C 库，但文档令人困惑。我还在Rosetta Code上找到了一些椭圆曲线代码。CPAN 上曾经有一个 Crypt::ECDSA，但在某个时候被删除了。
那么使用 Perl 从私钥获取比特币地址的最佳且快速的方法是什么？