PERL Beginners - EastAsianWidth test.

Author

EastAsianWidth test.

Rajarshi Das

2005-03-29, 3:57 am

Hi,
I am running a EastAsianWidth property test on z/OS using perl-5.8.6.

$str = chr(0xA1).chr(0xA2);

if ($str =~ /(\p{EastAsianWidth: A}+)/)
{
print "match";
}
else
{
print "no match";
}

First, is the above regex supposed to mean this : does $str contain chars
one or more of which has a "EastAsianWidth: Ambiguous" property ?

Also, if the regex is changed to /(\p{EastAsianWidth: a}+)/, I dont get a
match either. Is a lowercase 'a' in the regex synonymous with uppercase 'A'
?

The EastAsianWidth.txt mentions that 0xA1 has a property 'A'. So, the above
should match.

Any thoughts are welcome.

Thanks in advance,
Rajarshi.

________________________________________
_________________________
News, views and gossip. http://www.msn.co.in/Cinema/ Get it all at MSN
Cinema!

Offer Kaye

2005-03-29, 3:57 am

On Tue, 29 Mar 2005 11:08:05 +0530, Rajarshi Das wrote:
> Hi,
> I am running a EastAsianWidth property test on z/OS using perl-5.8.6.
>
> $str = chr(0xA1).chr(0xA2);
>
> if ($str =~ /(\p{EastAsianWidth: A}+)/)
> {
> print "match";
> }
> else
> {
> print "no match";
> }
>

I'm using perl-5.8.6 on Linux and your code prints "match" when I run
it, so it seems to work for me. Check your LANG and LC_* env
variables, are you working in a utf-8 environment? If not, try setting
that, or using "use utf8;" at the beginning of your script.

Hope this helps,
--
Offer Kaye

Sponsored Links