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 ~/src/icu/source/extra/colprobe/locale.txt`; 12my @locales = split(/\n/, $localeMinusA); 13my $locale; 14my $command; 15 16my $platform = $ARGV[0]; 17 18mkdir $platform."logs2"; 19mkdir $platform; 20 21foreach $locale (@locales) { 22 $command = "~/src/icu/source/extra/colprobe/colprobe --platform $platform --ref $platform --diff $locale >$platform"."logs2/$locale"."Log.txt 2>&1"; 23 ($locale, $_) = split(/\./, $locale); 24 $command .= "; cp /usr/share/i18n/locales/$locale $platform/"; 25 print "$command\n"; 26 `$command`; 27 #chdir ".."; 28 29} 30