replace_resource_ids.pl

#!/usr/bin/perl
# replace_resource_ids.pl
# It replaces resource IDs (R.string.xxx) in source files with resource string
# and write in STDOUT.
# usage: ./replace_resource_ids.pl strings.xml Hoge.java

use strict;

my $dictFile = $ARGV[0];
my $convertFile = $ARGV[1];

my %dict = ();

{
	open my $d, $dictFile or die "Error";
	while(<$d>) {
		if ($_ =~ /^\s*<string name\=\"(.*?)\">(.*)<\/string>\s*$/) {
			my $key = $1;
			my $str = $2;			
			$key =~ s/\./_/g;
			# TODO
			$str =~ s/[\)\(\/]//g;
			$dict{$key} = $str;
		}
	}
	close $dictFile;
}
my @keys = keys %dict;
open my $c, $convertFile or die "Error";
while (<$c>) {
	my $line  = $_;
	for my $key (@keys) {
		my $str = $dict{$key};
		$line =~ s/R\.string\.$key/\"$str\"/g;
	}
	print $line;
}

close $convertFile;