Create resource files by EN resource.

#!/usr/bin/perl
use File::Copy;

$sourcefile = "$ARGV[0]";

my @langArray = ("ar","cs","da","de","el","es-MX","es","fr","he","it","ja","ko","nl",
"no","pl","pt-BR","ru","sv","th","tr","zh-CN","zh-TW");
#print "$ARGV[0]\n";
if(!"$sourcefile")
{
    die "File name not allow empty!\n";
}else
{
    for($i=0; $i<=$#langArray; $i++) {
        copy("$sourcefile.resx","$sourcefile.$langArray[$i].resx") or die "copy file fail. (lang:$langArray[$i])\n";
        print "$sourcefile.$langArray[$i].resx created.\n";
        #print "$langArray[$i]\n";
    }  
}