Help for this page

Select Code to Download


  1. or download this
    $ grep 'm\/.*\$.*\/' unum.pl
        if ($k->[2] =~ m/$cpat/) {
...
        my $cpat = qr/\Q$1\E/i;
        if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
        $n =~ s/^c?=(.+)$/\Q$1\E/i;
  2. or download this
    $ cat unum.pl | grep 'if '
    if ($#ARGV < 0) {
...
        } elsif ($code >= 0xAC00 && $code <= 0xD7A3) {
        pop(@s) if $t == 0x11A7;
        return $block->[2] if $block->[0] <= $code && $block->[1] >= $
+code;