Re^3: Can't find unicode character property definition at line $X (elsif)

The line giving the error is:
Line 194: if ($n =~ m/^\d/) {
[download]

No, that line can't be to blame. Which means the problem is actually on a subsequent elsif line (that is an annoying quirk of how Perl reports line numbers for error messages -- an error in the conditional expression of an elsif is always reported as happening on the line of the corresponding if expression instead). If you don't see how to fix that line, then reply back.

- tye

Comment on Re^3: Can't find unicode character property definition at line $X (elsif) Download Code

Replies are listed 'Best First'.
Re^4: Can't find unicode character property definition at line $X (elsif) by Anonymous Monk on Feb 18, 2009 at 18:14 UTC
tye, Thank your for your quick response. I've tried to replace all of the $var's as you suggest, and I'm still getting the same error on the same line. The file enum.pl is from http://www.fourmilab.ch/webtools/unum/ Here is the log showing the changes I tried. $ grep 'm\/.\$.\/' unum.pl if ($k->[2] =~ m/$cpat/) { if ($XHTML_ENTITIES{$k} =~ m/$cpat/) { if ($UNICODE_NAMES{$k} =~ m/$cpat/) { $ grep cpat unum.pl my $cpat = qr/$2/i; if ($k->[2] =~ m/$cpat/) { my $cpat = qr/$1/i; if ($XHTML_ENTITIES{$k} =~ m/$cpat/) { my $cpat = qr/$1/i; if ($UNICODE_NAMES{$k} =~ m/$cpat/) { $ nano unum.pl $ grep 'm\/.\$.\/' unum.pl if ($k->[2] =~ m/\Q$cpat\E/) { if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) { if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) { $ grep '\/.\$.\/' unum.pl my $cpat = qr/$2/i; if ($k->[2] =~ m/\Q$cpat\E/) { my $cpat = qr/$1/i; if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) { my $cpat = qr/$1/i; if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) { $n =~ s/^c?=(.+)$/$1/i; $ unum c=hello Can't find unicode character property definition via main->IsDigit or +Is/Digit.pl at /home/user/bin/unum.pl line 194 $ nano unum.pl $ unum c=hello Can't find unicode character property definition via main->IsDigit or +Is/Digit.pl at /home/user/bin/unum.pl line 194 $ nano unum.pl $ unum c=hello Can't find unicode character property definition via main->IsDigit or +Is/Digit.pl at /home/user/bin/unum.pl line 194 $ grep '\/.\$.\/' unum.pl my $cpat = qr/\Q$2\E/i; if ($k->[2] =~ m/\Q$cpat\E/) { my $cpat = qr/\Q$1\E/i; if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) { my $cpat = qr/\Q$1\E/i; if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) { $n =~ s/^c?=(.+)$/\Q$1\E/i; [download] Here are the "elsif" lines, they don't look guilty to me: $ cat unum.pl \| grep 'if ' if ($#ARGV < 0) { if ($n =~ m/^\d/) { $n = oct($n) if ($n =~ m/^0/); } elsif ($n =~ m/^(b\|l)=(.+)/) { if ($k->[2] =~ m/\Q$cpat\E/) { if (!$blocktitle) { if ($listall) { } elsif ($n =~ m/^h=(.+)/) { if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) { } elsif ($n =~ m/^n=(.+)/) { if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) { } elsif ($n =~ m/^&#/) { if (!defined($u)) { if (defined($u)) { if (!$chartitle) { if ($code >= 0x4E00) { if ($code <= 0x9FFF \|\| ($code >= 0xF900 && $code <= 0xFAFF)) { } elsif ($code >= 0xD800 && $code <= 0xF8FF) { if ($code <= 0xDFFF) { } elsif ($code >= 0xAC00 && $code <= 0xD7A3) { pop(@s) if $t == 0x11A7; return $block->[2] if $block->[0] <= $code && $block->[1] >= $ +code; [download] john	[reply] [d/l] [select]
Re^5: Can't find unicode character property definition at line $X (elsif) by tye (Sage) on Feb 18, 2009 at 18:40 UTC
Actually, it looks like you have a more unusual problem and it actually is at line 194. \d just doesn't appear to work for your version of Perl. You'll likely get more help if you post in SoPW rather than deep in this ancient thread. - tye	[reply]
Re^6: Can't find unicode character property definition at line $X (elsif) by Anonymous Monk on Feb 18, 2009 at 23:18 UTC
OK, Thank you for your help. I certainly appreciate the help you've given me. I need to mull over what I've learned in this thread a bit more before starting a new thread. john	[reply]