意外的结果，而连接字符串中的perl

Question

我想执行下面的脚本，但没有得到所需的输出。它似乎仍然保留了旧的价值并保持连结。

./test.pl -v V10，V11，V12

实际结果> 'V10'， 'V11'， 'V10'， 'V12'， 'V10'， 'V11'，'V10 '

预期结果=> 'V10'，' V11' ， 'V12'

可以请您帮助解决问题？

#!/usr/bin/perl 

use strict; 
use warnings; 
use Getopt::Long; 

my ($versionFlag,$finalVersionList); 

sub validateInputAndFilter 
{ 
     my ($passedVersionList) = @_; 
     $finalVersionList =""; 

     my @versionList = split(",",$passedVersionList); 
     foreach my $ver (@versionList) 
     { 
       if($ver =~ m/^v[0-9][0-9]$/) 
       { 
         $finalVersionList .= "'$ver',$finalVersionList"; 
       } 
       else 
       { 
         print "\nWARNING: Passed version *** $ver *** is NOT in expected format...skipping...\n"; 
       } 
     } 
     $finalVersionList =~ s/\,$//; 
     print "\n\nfinalVersionList => $finalVersionList\n\n"; 
} 

GetOptions('v|version=s' => \$versionFlag) || die "Please pass version list separated by comma"; 

if(defined $versionFlag) 
{ 
     &validateInputAndFilter("$versionFlag"); 
} 
else 
{ 
     die "Please pass version list separated by comma"; 
} 
exit 0; 

Answer 1

此：

$finalVersionList .= "'$ver',$finalVersionList"; 

应该仅仅是：

$finalVersionList .= "'$ver,'"; 

$foo .= $bar;相当于：

$foo = $foo . $bar; 

所以，$finalVersionList .= "'$ver',$finalVerionList";相当于：

$finalVersionList = $finalVersionList . "'$ver',$finalVersionList"; 

Answer 2

变化：

$finalVersionList .= "'$ver',$finalVersionList"; 

要：

$finalVersionList .= "'$ver',"; 

你做得多追加这里。你原本相当于：

$finalVersionList = $finalVersionList . "'$ver',$finalVersionList"; 

这不是你想要的。如果你想'$ver$',是在fromt列表，你可以这样做：

$finalVersionList = "'$ver'," . $finalVersionList; 

或：

$finalVersionList = "'$ver',$finalVersionList";