Hi,
Sent this MacPerl yesterday, no response yet. But from what little I've seen
on this error via google, I think it's a reg exp problem, not platform
specific. Any ideas? Any documentation I should check out? All help accepted
gratefully.
> ----------
>
> 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(/<DOCPAGENUM=\"\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 (I'm
> hacking at an RTF file). Now the old script is getting the same error.
> Any advice?
> 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.
****************************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
