pack ('E',<>) on perl-5.8.7

Hi,

The following worked in perl-5.005_03 on ebcdic.

$value = "http%3A%2F%2Fw3.pok.ibm.com%2Fpokcomm%2Fthanks.html";

$value =~ s/%([a-fA-F0-9]{2})/pack('E',chr(hex($1)))/ge;

print "value : $value\n";

However, the pack('E,<>) above is not supported on perl-5.8.7 on ebcdic.

A few qns here :

1) Is there some utility in perl-5.8.7 that can replace pack('E',<>) in the above regular _expression_ ?

2) Is it allowed to add a case 'E' in the pp_pack.c code in perl-5.8.7 to do this ?

Thanks,

Rajarshi.

Reply via email to