使用perl比较mysql的版本-CSDN博客

博客提及利用sprintf前边补零，曾想用正则表达式将大中小版本存到数组比较，过程麻烦。还给出了来自mysql - util里的VersionParser包代码，用于解析和比较数据库版本，代码包含new、parse、version_ge等方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

他就是利用了sprintf的前边补零，要说大二学习C语言就知道这个，可我就没想到

我之前是想用正则表达式将其大中小版本存到数组里边，然后再比较，比较的超麻烦。

代码来自mysql-util里边

my $vp = new VersionParser();

$vp->version_ge($main_dbh, '4.1.1')

###########################################################################
# VersionParser package 1149
# ###########################################################################
use strict;
use warnings FATAL => 'all';

package VersionParser;

sub new {
my ( $class ) = @_;
bless {}, $class;
}

sub parse {
my ( $self, $str ) = @_;
return sprintf('%03d%03d%03d', $str =~ m/(d+)/g);
}

sub version_ge {
my ( $self, $dbh, $target ) = @_;
$self->{$dbh} ||= $self->parse(
$dbh->selectrow_array('SELECT VERSION()'));
return $self->{$dbh} ge $self->parse($target);
}

# ###########################################################################
# End VersionParser package
# ###########################################################################

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/82392/viewspace-144730/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/82392/viewspace-144730/