1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl
($PATTERN, $HOPEFULL_PATTERN) = @ARGV;
UNICODE: while (<STDIN>) {
# ($code, $label, $categ, $comClass,
# $bidiClass, $decompos, $decDigit, $digit,
# $numeric, $mirror, $oldName, $comment,
# $upper, $lower, $title) = split (/;/);
($code, $label, $categ, undef,
undef, undef, undef, undef,
undef, undef, undef, undef,
undef, undef, undef) = split (/;/);
# skip control chars
next UNICODE if (index ($categ, "C") == 0);
if (($label =~ m/$HOPEFULL_PATTERN/) and ($label !~ m/$PATTERN/)) {
print "$code;$label\n";
}
}
|