1#!/usr/bin/perl -w 2 3# 4# Copyright (C) 2017 and later: Unicode, Inc. and others. 5# License & terms of use: http://www.unicode.org/copyright.html 6# 7 8use strict; 9 10#my $localeMinusA = `locale -a`; 11my $localeMinusA = `cat locale.txt`; 12 13my @locales = split(/\r\n/, $localeMinusA); 14my $locale; 15my $command; 16 17#my $commandPath = "~/src/icu/source/extra/colprobe/"; 18my $commandPath = "c:/dev/0_icu/source/extra/colprobe/release/"; 19 20 21my $platform = $ARGV[0]; 22 23mkdir $platform."logs"; 24mkdir $platform; 25 26foreach $locale (@locales) { 27 $_ = $locale; 28 chomp; 29 if(!/^\#/) { # && /\_/) { 30 $command = $commandPath."colprobe --platform $platform --ref $platform --output resb $locale >$platform"."logs/$locale"."_log.txt 2>&1"; 31 32 print "$command\n"; 33 `$command`; 34 } 35} 36