Re^2: Escaping a variable

[Draxter]

Hi,

Sorry, you are right of course.

This is what I do:

my $foo = "4D";
my $bar = "\x$foo";

print $bar . "\n";

Illegal hexadecimal digit '$' ignored at roman.pl line 7.
4D

[davido]

print hex($foo), "\n";

The output:

77

[Draxter]

I'll be more specific. How can I get $string and $bar to be the same by the end of this code:

#!/usr/bin/perl

use warnings;
use strict;

my $bar = "\x04\x4d";
my $foo = "044d";
my $string;

while ($foo =~ m/(..)/g) {
        $string .= chr($1);
}

print "string: $string\n";
print "bar: $bar\n";

Argument "4d" isn't numeric in chr at roman.pl line 11.
string: 
bar: M

Thanks,

Eran.

[davido]

It's easier when you read the directions we pointed to: hex, chr.

use warnings;
use strict;
use Test::More;

my $bar = "\x04\x4d";
my $foo = "044d";
my $string;

while ($foo =~ m/(..)/g) {
        $string .= chr(hex($1));
}

is( $bar, $string, '$bar eq $string' );
done_testing();

print "string: $string\n";
print "bar: $bar\n";

__END__

ok 1 - $bar eq $string
1..1
string: M
bar: M

Update: For the record, Test::More, is(), and done_testing() are not significant to the solution. I used them to demonstrate the equality.

[moritz]

use print hex $foo instead. See hex.

[Draxter]

I don't want the hex value of the variable, I need the variable to be printed as an ascii representation of the hex value.

[davido]

chr