Perl 比较版本号 5.1 < 5.10

Question

我在比较 2 个版本时遇到了困难。如果我们有 5.1 和 5.10，那么 5.1 应该小于 5.10。我知道十进制应该是 5.01 和 5.10。但是有没有办法使用 5.1 和 5.10 来比较它？

perl -e 'use warnings; use version; if (version->parse("5.1") < version->parse("5.10")) { print "ok"; }'

Answer 1

version 模块文档显示了如何做到这一点:

print version->declare('5.1')->numify;  # 5.00100
print version->declare('5.10')->numify; # 5.01000