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,
Using 'use utf8;' at the beginning of the script doesnt help. Also, the LANG environment var is set to 'C'.
Can someone point me to a good document to understand the EastAsianWidth property ? I read up EastAsianWidth.txt but the picture isnt very clear. E.g. I donot know what is meant by Full-Width and Half-Width characters in unicode as opposed to Wide and Narrow characters.
Thanks.
_________________________________________________________________
Get the job you always wanted. http://www.naukri.com/tieups/tieups.php?othersrcp=736 Its simple, post your CV on Naukri.com
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
