Re: bareword test on ebcdic.

[Rajarshi Das]

I posted it on all three lists assuming that the audience in all the three 
are different and higher the chances that someone posts a reply. Please let 
me know if this is an incorrect assumption, and also if this qn specifically 
is outside the scope of the beginners mailing list (or all ebcdic related 
qns are?)

Thanks,
Rajarshi.

From: "John W. Krahn" <[EMAIL PROTECTED]>
To: Rajarshi Das <[EMAIL PROTECTED]>,  Perl Beginners 
<beginners@perl.org>
Subject: Re: bareword test on ebcdic.
Date: Wed, 15 Jun 2005 06:20:55 -0700

Rajarshi Das wrote:
Hi,
Following is a snapshot of a bareword test :
--------------------------
use utf8;
my %hash = (&#1090;&#1077; => 123);
is($hash{&#1090;&#1077;}, $hash{'&#1090;&#1077;'});
---------------------------
It runs on ascii and passes but fails on ebcdic (z/OS, ibm-1047) with 
perl-5.8.6.

The above two barewords (&#1090; and &#1077;) which make up the key of the 
hash, cannot be displayed on ebcdic.
What do I replace the above barewords (which correspond to '\xb8\x43\x43' 
and \xb8\x42\x64' in utf-ebcdic) with, on ebcdic ?

Can I  say %hash = ('\xb8\x43\x43'.'\xb8\x42\x64' => 123)  ? Or would this 
mean a string because of the single quotes and the concat operator ?

Is there some other way to represent the barewords above (other than 
printing the bareword characters themselves), so that the test works ?

Thanks in advance,
Rajarshi.

I see that you are also posting this on the mailing lists perl5-porters and 
perl-unicode so could you please remove further posts on this topic from 
the beginners list?  TIA.


John
--
use Perl;
program
fulfillment

_________________________________________________________________
Test Your Memory and Win Amazing Prizes! 
http://adfarm.mediaplex.com/ad/ck/4686-26272-10936-429?ck=BrainTeaser DVD 
Players, Digicams & more!


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