Hi,
whether this program work on EBCDIC platform like z/OS.
my $grk = "grk$$";
if (open(GRK, ">$grk")) {
binmode(GRK, ":bytes");
# alpha beta gamma in ISO 8859-7
print GRK "\xe1\xe2\xe3";
close GRK or die "Could not close: $!";
}
open(GRK,'<:encoding(iso-8859-7)',$grk);
print <GRK>;
if (open(GRK, ">$grk")) {
binmode(GRK, ":bytes");
# alpha beta gamma in ISO 8859-7
print GRK "\xe1\xe2\xe3";
close GRK or die "Could not close: $!";
}
open(GRK,'<:encoding(iso-8859-7)',$grk);
print <GRK>;
The output i'm getting is \xb4\x52\xb4\x53\xb4\54 which corresponds to ���� , the output shoud be \xb4\x58\xb4\x59\xb4\x62 (UTF-EBCDIC).
Thanks and Regards
Yaseen
Discover Yahoo!
Have fun online with music videos, cool games, IM & more. Check it out!
