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