如何在perl中检查我的构建版本是否高于x.x.x



我正在检查我的etcd版本是否高于3.4.0

下面是我用来获取版本的命令

podman exec -it etcd-pod-etcd etcdctl version

上述命令的最终输出将采用字符串格式$output = '3.4.15'

我尝试以以下方式验证版本$output =~ 3.4

但这里的问题是,如果版本更改为3.5.x,我将不得不再次更改我的脚本。

检查版本是否高于3.4.x的最佳方法是什么?Perl中有任何模块可以执行以下操作吗?

Perl的版本对象和version杂注使它变得微不足道:
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010; # This needs at least 5.10, which hopefully isn't an issue these days
use feature qw/say/;
use version 0.77;
my $vers = version->parse('3.4.15');
if ($vers > v3.4.0) {
say "Version $vers is new enough.";
} else {
say "Version $vers is too old. You need to upgrade.";
}

最新更新