31 lines
635 B
Perl
31 lines
635 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
#my $localeMinusA = `locale -a`;
|
||
|
|
my $localeMinusA = `cat locale.txt`;
|
||
|
|
|
||
|
|
my @locales = split(/\r\n/, $localeMinusA);
|
||
|
|
my $locale;
|
||
|
|
my $command;
|
||
|
|
|
||
|
|
#my $commandPath = "~/src/icu/source/extra/colprobe/";
|
||
|
|
my $commandPath = "c:/dev/0_icu/source/extra/colprobe/release/";
|
||
|
|
|
||
|
|
|
||
|
|
my $platform = $ARGV[0];
|
||
|
|
|
||
|
|
mkdir $platform."logs";
|
||
|
|
mkdir $platform;
|
||
|
|
|
||
|
|
foreach $locale (@locales) {
|
||
|
|
$_ = $locale;
|
||
|
|
chomp;
|
||
|
|
if(!/^\#/) { # && /\_/) {
|
||
|
|
$command = $commandPath."colprobe --platform $platform --ref $platform --output resb $locale >$platform"."logs/$locale"."_log.txt 2>&1";
|
||
|
|
|
||
|
|
print "$command\n";
|
||
|
|
`$command`;
|
||
|
|
}
|
||
|
|
}
|