Jeff Westman wrote: > > Hi, Hello,
> There must be an easier way to convert a basic ascii string to hex. I tried > using ord/chr/unpack/sprintf(%x) combinations and just dug my hole deeper. > I'm not interested in using any additional modules, just straight, "basic" > perl. This works, but exactly elegant: > > #!/bin/perl > > use strict; > use warnings; > > my $str = "some string"; > my $hex = unpack('H*', "$str"); > > my $len = length($hex); > my $start = 0; > > print "x'"; > while ($start < $len) { > print substr($hex,$start,2); > $start += 2; > } > print "'\n"; > > Produces: > x'736f6d6520737472696e67' One way to do it: my $str = 'some string'; $str =~ s/(.)/ sprintf '%02x', ord $1 /seg; print "x'$str'\n"; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]