Re: Storable on EBCDIC

[Mikr]

> What is this (7!084$0Q(05-?3U9%4DQ/040*!'-N;W<`) represent? My understanding is that this value comes from make_overload.pl and represents in packed form, the frozen object created by calling HAS_OVERLOAD->make("snow"); which uses HAS_OVERLOAD.pm.  Executing thaw $f, I think, should be returning $t as the object which was frozen. All of this is part of the test procedures for the package Storable. As far as converting between ASCII and EBCDIC, maybe you want to install the Convert::EBCDIC PERL module.  Using it, I get the equivalent string of qw{7+2X\$0S(P>)MUN7%V=/6P<0E-Z*5EJ8`} But perhaps, what might work instead for you is to use the Convert module to convert after unpacking. Alternatively, you might decide to run make_overload.pl yourself to find the proper equivalent string (whatever $uu is, that should be your new string): #!/usr/local/bin/perl -w use strict; use Storable qw(nfreeze); use HAS_OVERLOAD; my $o = HAS_OVERLOAD->make("snow"); my $f = nfreeze \$o; my $uu = pack 'u', $f; print $uu; mohammad yaseen wrote: Hi, Suppose that there is statement given below. my $f = unpack 'u', q{7!084$0Q(05-?3U9%4DQ/040*!'-N;W<`}; after this $f will have the value given below. ¢¼¢Ò HAS_OVERLOAD ♦snow after this statement $f is passed as a parameter for thaw as given below. my $t = eval {thaw $f}; After this if we try to print $@(built in variable which contain error statement if there were any error in the previous statement.) then in EBCDIC it is printing the error where as in ASCII it is not . print "# $@" if $@;   This is happening because $f in case of EBCDIC is having some junck character instead of having ¢¼¢Ò HAS_OVERLOAD ♦snow Now can any tell What is this (7!084$0Q(05-?3U9%4DQ/040*!'-N;W<`) represent? What is the meaning of ¢¼¢Ò HAS_OVERLOAD ♦snow? What is the equivallent string of 7!084$0Q(05-?3U9%4DQ/040*!'-N;W<` in EBCDIC, so that we get the same out put if we do the unpack of the string in EBCDIC as in ASCII? With Thanks & Regards Yaseen   Start your day with Yahoo! - make it your home page