Converting a string into hex chars?

[Eric]

Hi,

I need to convert a string into a HTML encoded hex equivalent. I'm trying
things along the lines of:
________________________________________________
my $message = 'This is a message with various characters in it.';

my $encmsg = '';
for (my $i=0; $i<length($message); $i++)
{
$encmsg .= "%" . ord(substr($message, $i, 1));
}

print $encmsg;
________________________________________________

But this is producing decimal codes instead of hex ones.

Is there a better way to do this, that works?

Thanks,

Eric

 

[hubert depesz lubaczewski]

Eric wyrze¼bi³(a):

I need to convert a string into a HTML encoded hex equivalent. I'm trying
things along the lines of:
________________________________________________
my $message = 'This is a message with various characters in it.';

perl -le '
$message="This is a message with various characters in it.";
$message =~ s/./sprintf("%%%02x", ord($&))/ges;
print $message'

depesz

 

[Gunnar Hjalmarsson]

I need to convert a string into a HTML encoded hex equivalent. I'm
trying things along the lines of:
________________________________________________
my $message = 'This is a message with various characters in it.';

my $encmsg = '';
for (my $i=0; $i<length($message); $i++)
{
$encmsg .= "%" . ord(substr($message, $i, 1));
}

print $encmsg;
________________________________________________

But this is producing decimal codes instead of hex ones.

Is there a better way to do this, that works?

That works? I can't see that you even tried to convert to hexadecimal
numbers. See the sprintf() function.

$encmsg .= sprintf '%%%02X', ord $_ for split //, $message;

Or check out the URI::Escape module.

 

[Jay Tilton]

: Eric wrote:
: > I need to convert a string into a HTML encoded hex equivalent.

: See the sprintf() function.
:
: $encmsg .= sprintf '%%%02X', ord $_ for split //, $message;

Or even let sprintf() do every bit of the work.

my $encmsg = sprintf "%%%*v02X", '%', $message;