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 = `cat /home/weiv/src/icu/source/extra/colprobe/locale.txt`;
11my @locales = split(/\n/, $localeMinusA);
12my $locale;
13my $command;
14
15foreach $locale (@locales) {
16  if($locale =~ /_/ && !($locale =~ /^#/)) {
17    $command = "/home/weiv/src/icu/source/extra/colprobe/doComparisonTable.pl $locale";
18    print "$command\n";
19    `$command`;
20  }
21}
22