AndroidManifest.xml の android:versionCode をインクリメントする

リリース前に書き換えるのめんどくさいですよね。
というわけでざっくりインクリメントするコードを書いてみた。
何か専用のツールがあってもいいようなものですけど。

Perler ではないので汚いソースだけど。

inc.pl:

my $file = shift;
open(IN, $file) or die "Can't open $file: $!\n";
while (<IN>) {
  if ($_ =~ /android:versionCode=".+?"/) {
    $line = $_;
    ($ver) = ($line =~ /android:versionCode="(.+?)"/);
    $ver = $ver + 1;
    $line =~ s/android:versionCode="(.+?)"/android:versionCode="${ver}"/;
    print $line;
  } else {
    print;
  }
}
close(IN);

inc.bat:

:
: AndroidManifest.xml の android:versionCode をリリース用にインクリメントする
:
@echo off
perl inc.pl AndroidManifest.xml

choice /M "Increment OK?"

if %ERRORLEVEL%==2 goto END

copy AndroidManifest.xml AndroidManifest.xml.bak
perl inc.pl AndroidManifest.xml.bak > AndroidManifest.xml

:END
echo end.