Hi,

I've just run across an error message I've never seen before:

# Can't find unicode character property definition via main->a or a.plFile
'unicode/Is/a.pl'; Line 0
This occurred after adding the following code to a script that was
functioning:

----START---

                while($_=~/\}\{\\i\\fs24\\cgrid0 \d+\.\d+\}\{\\fs24\\cgrid0
\\{.*?\\}/){                    $_=~/\}\{\\i\\fs24\\cgrid0
(\d+\.\d+)\}\{\\fs24\\cgrid0 \\{(.*?)\\}/;
$para_num=$1;                   $key_val=$2;
if($paras{$para_num}){
$substitute=$paras{$para_num};                          #print $substitute;
$_=~s/\}\{\\i\\fs24\\cgrid0 \d+\.\d+\}\{\\fs24\\cgrid0
\\{.*?\\}/}\{\\i\\fs24\\cgrid0 $substitute\}\{\\fs24\\cgrid0 /;
}elsif($badbreaks{$para_num}){
$search_item=$badbreaks{$para_num};
$search_item=~/<DOCPAGE NUM=\"(\d+)\">/;
$page_num=$1;                           @sides=split(/<DOCPAGE
NUM=\"\d+\">/, $search_item);                           if
($sides[0]=~$key_val){                                  $page_num--;
}                               $_=~s/\}\{\\i\\fs24\\cgrid0
\d+\.\d+\}\{\\fs24\\cgrid0 \\{.*?\\}/\}{\\i\\fs24\\cgrid0
$page_num\}{\\fs24\\cgrid0 /;
}else{$_=~s/(\}\{\\b\\fs24\\cgrid0 \d+)\.(\d+\}\{\\fs24\\cgrid0
\\{.*?\\})/$1_$2NOT_FOUND/;}            }
while($_=~/\}\{\\i\\fs24\\cgrid0 \d+\.\d+\}\{\\fs24\\cgrid0 /){
$_=~/\}\{\\i\\fs24\\cgrid0 (\d+\.\d+)\}\{\\fs24\\cgrid0 /;
$para_num=$1;                   $_=~/<IDX\d>(.*?),/;
$key_val=$1;                    if($paras{$para_num}){
$substitute=$paras{$para_num};                          #print $substitute;
$_=~s/\}\{\\i\\fs24\\cgrid0 \d+\.\d+\}\{\\fs24\\cgrid0
/\}\{\\i\\fs24\\cgrid0 $substitute\}\{\\fs24\\cgrid0 /;
}elsif($badbreaks{$para_num}){
$search_item=$badbreaks{$para_num};
$search_item=~/<DOCPAGE NUM=\"(\d+)\">/;
$page_num=$1;                           @sides=split(/<DOCPAGE
NUM=\"\d+\">/, $search_item);                           if
($sides[0]=~$key_val){                                  $page_num--;
}                               $_=~s/\}\{\\i\\fs24\\cgrid0
\d+\.\d+\}\{\\fs24\\cgrid0 /\}{\\i\\fs24\\cgrid0 $page_num\}{\\fs24\\cgrid0
/;                      }else{$_=~s/(\}\{\\i\\fs24\\cgrid0
\d+)\.(\d+\}\{\\fs24\\cgrid0 )/$1_$2NOT_FOUND/;}                }---END---

Oddly enough, all this is copied from the working script, with a
modification to the regexp--specifically, changing \}\{\\b to \}\{\\i (yes,
I'm hacking at an RTF file). Now the old script is getting the same error.
Any advice? How do I get back to my happy place?

Thanks, 

John


****************************************************************************
This email may contain confidential material.
If you were not an intended recipient, 
please notify the sender and delete all copies.
We may monitor email to and from our network.

****************************************************************************


Reply via email to