检查版本在Perl

Question

我写子例行检查版本，但一些如何我如果版本1个<版本2，然后-1 如果版本1 = 2版则0 如果VERSION1>第2版，然后我没有得到正确的输出不知道为什么，我没有得到正确的结果

sub checkVersion 
    { 
     my $var1 = shift; 
     my $var2 = shift; 
     my @var1_seg = split (/./, $var1); 
     my @var2_seg = split (/./, $var2); 
     for(my $i = 0; $i < @var1_seg; $i++) 
     { 
      if($var1_seg[$i] < $var2_seg[$i]) 
      { 
       return -1; 
      } 
      elsif($var1_seg[$i] > $var2_seg[$i]) 
      { 
       return 1; 
      } 
     } 

     return 0; 
    } 

Answer 1

不应该这样：

my @var1_seg = split (/./, $v1); 
my @var2_seg = split (/./, $v2); 

是这样的：

my @var1_seg = split (/./, $var1); 
my @var2_seg = split (/./, $var2); 

作为一般性评论，总是“严格使用”。在您的程序的顶部，以避免这样的问题。

Answer 2

在一个说明中，您需要使用split转义点.，因为它被认为是正则表达式中的特殊字符。 相反，使用version模块，这使得它非常容易比较的版本号：

use strict; 
use warnings; 
use version; 
use feature 'say'; 

say checkVersion('5.10.0', '5.14.0'); # Returns -1 
say checkVersion('5.10.0', '5.10.0'); # Returns 0 
say checkVersion('5.14.0', '5.10.0'); # Returns 1 

sub checkVersion { 
    my $var1 = shift; 
    my $var2 = shift; 
    return version->parse($var1) <=> version->parse($var2); 
} 

Answer 3

使用version相反。当你处理版本时，这个模块非常有用。