#!/usr/local/bin/perl

# hexadecimal <-> decimal conversion
# $Id: hex,v 1.1 1998/02/26 10:21:16 czyborra Exp $

for (@ARGV)
{
	s/0x([0-9a-f]+)/hex($1)/gei;
	printf ("%d = 0x%X\n", $_, $_);
}