檢查版本在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相反。當你處理版本時，這個模塊非常有用。