バッチスクリプトやperlを使ってアルファベットのバージョンを増やす方法はありますか？

Question

私はバージョンごとにインクリメントしたい1.0.1A
のようなバージョンのような実行した：
1.0.1B、1.0.1C、1.0.1D、... 1.0.1Z、1.0.1AA、1.0.1AB、... 1.0.1AZ、1.0.1BAなど

これをどのように達成できますか？今、私はPerlとバージョンを使用しています

等1.0.0.A、1.0.0.B、

my @Splitversion = split(/\./,$Buildno); 
my $NEXTBUILDLETTER = ++$Splitversion[3]; 
$NextBuild = "$Splitversion[0]\.$Splitversion[1]\.$Splitversion[2]\.$NEXTBUILDLETTER"; 
print $NextBuild; 

Answer 1

変更：

use warnings; 
use strict; 
my $Buildno = '1.02B'; 

my ($version,$letters) = $Buildno =~ /^(.*?)([A-Z]+)\z/ 
    or die "invalid buildno $Buildno\n"; 
my $NextBuild = $version . ++$letters; 
print $NextBuild, "\n"; 

Answer 2

@ECHO Off 
SETLOCAL 
SET "version=10.0.1A" 
:next 
CALL :incver %version% 
ECHO version=%version% - new version=%newver% 
SET "xxx=" 
SET /p xxx=Another ? 
IF NOT DEFINED xxx SET "version=%newver%"&GOTO next 
GOTO :EOF 

:incver 
SET "newver=%1" 
SET "valid=A B C Y Z" 
:: next on final character 
CALL :changechar %newver:~-1% 
IF %nextchar% neq %valid:~0,1% SET "newver=%newver:~0,-1%%nextchar%"&GOTO :EOF 
:: Is 2nd-last a valid char? 
:: If so, increment 2nd-last and restart last. 
FOR %%b IN (%valid%) DO IF %newver:~-2,1%==%%b (
CALL :changechar %%b 
CALL SET "newver=%newver:~0,-2%%%nextchar%%%nextchar%" 
GOTO :EOF 
) 
:: Not a valid character so append another 
SET "newver=%newver:~0,-1%%nextchar%%nextchar% 
GOTO :eof 

:changechar 
SET "nextchar=" 
FOR %%a IN (%valid% %valid:~0,1%) DO IF DEFINED nextchar (
SET "nextchar=%%a" 
GOTO :EOF 
) ELSE IF %%a==%1 SET "nextchar=%%a" 

GOTO :eof 

興味深い少しの練習のようなものです。

上記のルーチンでは、を入力します。を入力すると、任意の文字入力が終了します。

:incverのパラメータとして提供されたコードの後に​​、:incverルーチンは、次の順序を含むnewverを生成します。

次のコードは、最後の文字を見て次のコードを選択し、最後の有効な文字を増やして最初のコードを選択することで得られます。

したがって、次の選択が最初の有効と同じ場合、新しい文字を追加する（最後の文字を削除して最初の有効な文字を2回追加する）か、2番目の文字を増やす最初の有効な文字を追加します。このような何かに

は

Answer 3

my ($version,$letters) = $Buildno =~ /^(.*?)\.([A-Z]+)\z/ 
or die "invalid buildno $Buildno/n"; 
$NextBuild = $version . ++$letters; 
print $NextBuild."\n";