12e5b6d6dSopenharmony_ci#!/usr/bin/perl -w 22e5b6d6dSopenharmony_ci 32e5b6d6dSopenharmony_ci# 42e5b6d6dSopenharmony_ci# Copyright (C) 2017 and later: Unicode, Inc. and others. 52e5b6d6dSopenharmony_ci# License & terms of use: http://www.unicode.org/copyright.html 62e5b6d6dSopenharmony_ci# 72e5b6d6dSopenharmony_ci 82e5b6d6dSopenharmony_ciuse strict; 92e5b6d6dSopenharmony_ci 102e5b6d6dSopenharmony_ci#my $localeMinusA = `locale -a`; 112e5b6d6dSopenharmony_cimy $localeMinusA = `cat ~/src/icu/source/extra/colprobe/locale.txt`; 122e5b6d6dSopenharmony_cimy @locales = split(/\n/, $localeMinusA); 132e5b6d6dSopenharmony_cimy $locale; 142e5b6d6dSopenharmony_cimy $command; 152e5b6d6dSopenharmony_ci 162e5b6d6dSopenharmony_cimy $platform = $ARGV[0]; 172e5b6d6dSopenharmony_ci 182e5b6d6dSopenharmony_cimkdir $platform."logs2"; 192e5b6d6dSopenharmony_cimkdir $platform; 202e5b6d6dSopenharmony_ci 212e5b6d6dSopenharmony_ciforeach $locale (@locales) { 222e5b6d6dSopenharmony_ci $command = "~/src/icu/source/extra/colprobe/colprobe --platform $platform --ref $platform --diff $locale >$platform"."logs2/$locale"."Log.txt 2>&1"; 232e5b6d6dSopenharmony_ci ($locale, $_) = split(/\./, $locale); 242e5b6d6dSopenharmony_ci $command .= "; cp /usr/share/i18n/locales/$locale $platform/"; 252e5b6d6dSopenharmony_ci print "$command\n"; 262e5b6d6dSopenharmony_ci `$command`; 272e5b6d6dSopenharmony_ci #chdir ".."; 282e5b6d6dSopenharmony_ci 292e5b6d6dSopenharmony_ci} 30