Convert hex to ascii

#!/usr/bin/perl
foreach (@ARGV) {$a = "$a$_"; }
$a=~s/([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
print "$a\n"

Comments are closed.