Ascii to hex?

[Bert]

How do I convert an ascii to hex? I want the hex stored in a variable, not
just printed out.
For example,
my testchars = 'CICS003'
How do I store that value in hexchars?
I know this is basic, but it eludes me...
Thanks from a newbie.

[Purl Gurl]

Bert wrote:

(snipped)

How do I convert an ascii to hex?

Have you considered research and reading?

My experience is learning is not painful.
However, lazy people are a pain.

http://www.google.com/search?hl=en&i...ii+to+hex+perl
Purl Gurl
--
Size Does Matter
http://www.purlgurl.net/~godzilla
#!perl

@Hex = unpack("C*", "Purl Gurl Rocks");

print "@Hex\n";

$ascii = pack("C*", @Hex);

print $ascii;

[Roy Johnson]

"Bert" <gr*********@hotmail.com> wrote in message news:<cf*******************@bignews5.bellsouth.net >...

How do I convert an ascii to hex?

/opt/perl/bin/perldoc -q convert

[Jim Gibson]

In article <cf*******************@bignews5.bellsouth.net>, Bert
<gr*********@hotmail.com> wrote:

How do I convert an ascii to hex? I want the hex stored in a variable, not
just printed out.
For example,
my testchars = 'CICS003'
How do I store that value in hexchars?
I know this is basic, but it eludes me...
Thanks from a newbie.

You can use ord to get the numerical value of an ascii character and
sprintf "%x" to generate the hexadecimal representation of that number:

#!/opt/perl/bin/perl
use strict;
use warnings;

my $testchars = 'CICS003';
my $hexchars = '';
foreach my $c (split(//,$testchars)) {
$hexchars .= sprintf "%x", ord($c);
}
print "$hexchars\n";

__OUTPUT__
43494353303033

FYI: this newsgroup is defunct. Try comp.lang.perl.misc in the future.

[Bert]

Thank you all for your help. A newbie is smarter for your efforts. Thank
you.
"Bert" <gr*********@hotmail.com> wrote in message
news:cf*******************@bignews5.bellsouth.net. ..

How do I convert an ascii to hex? I want the hex stored in a variable, not
just printed out.
For example,
my testchars = 'CICS003'
How do I store that value in hexchars?
I know this is basic, but it eludes me...
Thanks from a newbie.