#!/usr/bin/perl -w

# ascii2hex.pl 
# convierte una cadena en su valor hexadecimal 
# Septiembre de 2005: FJA - neocipres@jazzfree.com
 
use strict;

my ( $sep,$trozo,$cad,$i );
my $cadhex = "";

if ($#ARGV == -1) {print "\n Uso: ascii2hex <cadena> [separador]\n\n";}
 else {
 	if ($#ARGV == 0) {
		print "\n ";
		print uc(unpack("H*", $ARGV[0])), "\n\n";
	}
	if ($#ARGV == 1) {
		$sep = $ARGV[1];
		$cad = $ARGV[0];	
		for ($i=0; $i<length($cad); $i++) {
			$trozo = substr($cad,$i,1);
			$trozo = uc(unpack("H*", $trozo));
			if ($i == length($cad)-1) {$sep = "";}
			$cadhex = $cadhex . $trozo . $sep; 
		}
		print "\n\t", $cadhex,  "\n\n";
		print "\tLongitud: ",length($cad)," caracteres. \n\n";
	}	
 }