xref: /third_party/icu/tools/colprobe/tableStarter.pl

#!/usr/bin/perl -w

#
# Copyright (C) 2017 and later: Unicode, Inc. and others.
# License & terms of use: http://www.unicode.org/copyright.html
#

use strict;

my $localeMinusA = `cat /home/weiv/src/icu/source/extra/colprobe/locale.txt`;
my @locales = split(/\n/, $localeMinusA);
my $locale;
my $command;

foreach $locale (@locales) {
  if($locale =~ /_/ && !($locale =~ /^#/)) {
    $command = "/home/weiv/src/icu/source/extra/colprobe/doComparisonTable.pl $locale";
    print "$command\n";
    `$command`;
  }
}