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