OSX用 日本語ローカライズされたディレクトリを作成

create_localized_dir.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');
use File::Path;

# 参考
# http://msyk.net/macos/jaguar-localize/

if(!$ARGV[0] || !$ARGV[1]) {
	print "USAGE: $0 [en_name] [ja_name]\n";
	exit;
}

my $en_name=$ARGV[0];
my $ja_name=$ARGV[1];
utf8::decode($en_name);
utf8::decode($ja_name);

my $basedir="$en_name.localized";
mkpath("$basedir/.localized");
{
	open(my $fh,'>:utf8',"$basedir/.localized/en.strings") || die $!;
	print $fh qq{"$en_name" = "$en_name";\n};
}
{
	open(my $fh,'>:utf8',"$basedir/.localized/ja.strings") || die $!;
	print $fh qq{"$en_name" = "$ja_name";\n};
}