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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
