Perl单行Authen::Passphrase::MySQL323

Question

我有一个很好的执行一行的代码

cat "$1" | perl -MDigest::SHA1=sha1_hex -lpe '$_ = sha1_hex $_'

我想使用一个不同的模块来创建mysql323散列。

cat "$1" | perl -MAuthen::Passphrase::MySQL323=hash -lpe '$_ = hash $_'

然而，我对perl一行程序的理解非常有限……有人能帮帮我吗？

Answer 1

Authen::Passphrase::MySQL323不提供功能接口。您需要创建一个对象并调用一个方法。

这是文档中概要的一部分。我建议你读一读它们，找出你需要哪种方法，以及你需要如何初始化它来达到你的目的。

一般来说，它在一行代码中看起来像这样，不幸的是，它变得有点长了。

cat "$1" | perl -MAuthen::Passphrase::MySQL323 -lpe '$_ = Authen::Passphrase::MySQL323->new(hash_hex => $_)->hash'

将参数更改为new和根据需要调用的方法。