如何用Perl检查etcd版本是否高于3.4.0？

安全阿岳

2026-8-22

检查etcd版本是否高于3.4.0的Perl实现方法

原生Perl实现无需额外模块

如果不想依赖第三方模块，可以手动拆分版本号的各个部分进行比较，逻辑清晰且无需额外安装：

先从命令输出中提取纯数字版本号注意实际etcdctl version的输出可能包含额外文字，需要先提取
将版本字符串按.拆分为主版本、次版本、补丁版本三个数字
逐级比较版本号：

# 模拟从命令获取的输出，实际场景中替换为命令执行结果
my $cmd_output = `podman exec -it etcd-pod-etcd etcdctl version`;
# 提取纯数字版本号
my ($current_version_str) = $cmd_output =~ /(\d+\.\d+\.\d+)/;

# 拆分版本号
my ($major, $minor, $patch) = split /\./, $current_version_str;
my $is_qualified = 0;

# 逐级比较
if ($major > 3) {
    $is_qualified = 1;
} elsif ($major == 3) {
    if ($minor > 4) {
        $is_qualified = 1;
    } elsif ($minor == 4 && $patch > 0) {
        $is_qualified = 1;
    }
}

# 输出结果
print $is_qualified ? "etcd版本高于3.4.0，符合要求\n" : "etcd版本低于或等于3.4.0，不符合要求\n";

使用Perl核心模块`version`推荐

Perl自带的version模块是处理版本号比较的最佳选择，它能自动处理各种标准版本格式，代码更简洁且不易出错，无需额外安装Perl 5.10及以上默认包含：

use version;

# 获取命令输出并提取版本号
my $cmd_output = `podman exec -it etcd-pod-etcd etcdctl version`;
my ($current_version_str) = $cmd_output =~ /(\d+\.\d+\.\d+)/;

# 转换为version对象
my $current_version = version->parse($current_version_str);
my $target_version = version->parse('3.4.0');

# 直接比较
if ($current_version > $target_version) {
    print "etcd版本高于3.4.0，符合要求\n";
} else {
    print "etcd版本低于或等于3.4.0，不符合要求\n";
}