hex to ebcdic

[roch77]

hi,
I have a string of hex that represent ebcdic characters. Is there a
way that I can do the following in perl.


hex string = "f1f2d7d9f0"

the result I want = "12PR0"

From looking up a ascii/hex/ebcdic table, I was able to arrive at the

result. ie: f1 => 1, f2 => 2, d7 =>P etc..

Is there a perl function that will do this?
(I don't want to code the entire lookup table if I don't have to).

I am doing this in linux if that matters.

thanks

 

[Gunnar Hjalmarsson]

I have a string of hex that represent ebcdic characters. Is there a
way that I can do the following in perl.

hex string = "f1f2d7d9f0"

the result I want = "12PR0"

result. ie: f1 => 1, f2 => 2, d7 =>P etc..

Is there a perl function that will do this?

There is a module.

use Convert::EBCDIC 'ebcdic2ascii';
$hex = 'f1f2d7d9f0';
( $ebcdic = $hex ) =~ s/(..)/chr(hex $1)/eg;
$ascii = ebcdic2ascii( $ebcdic );

 

[roch77]

Thanks a lot.
I have Convert::EBCDIC, but didn't quite figure out how to do it.

Actually the file that I am ftping from the mainframe has packed
numeric (comp.) as well as these display fields. So thats why I do a
binary mode ftp.

Then I use "unpack "H*", $buf" and all the display fields show up as
hex representation of EBCDIC.
So I will use Gunner's suggestion to convert them.. There maybe other
ways like the convertibm390 module as well I guess..

Thanks very much once again..

 

[Dr.Ruud]

Gunnar Hjalmarsson schreef:

roch77:

There is a module.

use Convert::EBCDIC 'ebcdic2ascii';
$hex = 'f1f2d7d9f0';
( $ebcdic = $hex ) =~ s/(..)/chr(hex $1)/eg;
$ascii = ebcdic2ascii( $ebcdic );

See also Encode.

 

[Gunnar Hjalmarsson]

Gunnar Hjalmarsson schreef:

See also Encode.

Right, making use of a standard module is more convenient.

use Encode 'decode';
$hex = 'f1f2d7d9f0';
( $ebcdic = $hex ) =~ s/(..)/chr(hex $1)/eg;
$ascii = decode 'posix-bc', $ebcdic;

 

[Dr.Ruud]

Gunnar Hjalmarsson schreef:

use Encode 'decode';
$hex = 'f1f2d7d9f0';
( $ebcdic = $hex ) =~ s/(..)/chr(hex $1)/eg;
$ascii = decode 'posix-bc', $ebcdic;

Ah, "posic-bc", brings back memories. I would've thought that "EBCDIC"
or "EBCDIC-US" (see `iconv -l`) would work too, but they don't, see
`perldoc Encode::Supported`.

Variant using pack()

$ perl -Mstrict -MEncode=decode -wle'
my $ebcdic = pack q/H*/, $ARGV[0];
my $ascii = decode q/posix-bc/, $ebcdic;
print $ascii;
' f1f2d7d9f0
12PR0