a bareword test :
use utf8;
my %hash = (???? => 123);
if (($hash{????}) eq ($hash{'????'})) print "ok\n";
The ???? above are the chars corresponding to
\x{0442},\x{0435},\x{0441}, and \x{0442} respectively.
1) On ebcdic, can we represent the barewords as
my %hash = ("\x{0442}\x{0435}\x{0441}\x{0442}" =>
123)
since the actual chars cannot be printed ?
2) Or is there a different way to represent barewords
on ebcdic ?
3) The if condition above becomes,
if (($hash{"\x{0442}\x{0435}\x{0441}\x{0442}"}) eq
($hash{'"\x{0442}\x{0435}\x{0441}\x{0442}"'}))
Can I rewrite the above as :
if (($hash{"\x{0442}\x{0435}\x{0441}\x{0442}"}) eq
($hash{eval '"\x{0442}\x{0435}\x{0441}\x{0442}"'}))
and still be doing a bareword test ?
Thanks in advance,
Rajarshi.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
