Hex

Hex Conversion

Usage

$ ./hex.pl "A B C D E F G H"

hex: '412042204320442045204620472048'
<-- 'A B C D E F G H'

#!/usr/bin/perl -w
use strict;

my $string = $ARGV[0];


print "\n";

my $hex_string = &iso2hex($ARGV[0]);

print "hex: '$hex_string'\n";

print "<-- '", &hex2iso($hex_string), "'\n";


sub iso2hex ($) {
	my $string = $_[0];
	my $hex_string = '';

	for (my $i = 0; $i < length($string); $i++) {
		# print substr($string, $i, 1);
		$hex_string .= unpack('H8',  substr($string, $i, 1));
	}
	$hex_string;
}

sub hex2iso ($) {
	my $hex_string = $_[0];
	my $iso_string = '';

	for (my $i = 0; $i < length($hex_string); $i += 2) {
		$iso_string .= pack('H8',  substr($hex_string, $i, 2));
	}
	$iso_string;
}