in reply to Re^10: hex code passed from command line is interpreted literally in substitution
in thread hex code passed from command line is interpreted literally in substitution

Um, pretty much all of them put together :)

Ok, maybe Re^3: hex code passed from command line is interpreted literally in substitution, and starting at Re^3: hex code passed from command line is interpreted literally in substitution

Maybe this will help

real perl program SAME perl program (also real) logical equivalent (also real, but some subs undefined)
print "\x41"; print('A'); print( chr( 65 ) );
print "\x41t the $hop"; print('At the'.$hop); 
print(
    concat(
        'At the',
        getVar('$hop')
    )
);

[download]
$hop="\x41";
print "\x41t the $hop";

[download]
 
$hop='A';
print('At the'.$hop);

[download]
 
setVar('$hop', 'A');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);

[download]
$hop="\\x41";
print "\x41t the $hop";

[download]
 
$hop='\x41';
print('At the'.$hop);

[download]
 
setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);

[download]
$hop="\\x41";
print "\x41t the $hop";
s{.}{\x41};

[download]
 
$hop='\x41';
print('At the'.$hop);
$_ =~ s/./A/;

[download]
 
setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsString('A')
);

[download]
 
$hop="\\x41";
print "\x41t the $hop";
s{.}{\x41$hop};

[download]
 
$hop='\x41';
print('At the'.$hop);
$_ =~ s/./A$hop/;

[download]
 
setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsEval('
        concat(
            \'A\',
            getVar(\'$hop\')
        );
        '
    )
);

[download]
 
$hop="\\x41";
print "\x41t the $hop";
s{.}{"\x41$hop"}e;

[download]
 
$hop='\x41';
print('At the'.$hop);
$_ =~ s/"./A$hop"/e;

[download]
 
setVar('$hop', '\x41');
print(
    concat(
        'At the',
        getVar('$hop')
    )
);
substitute(
    getVar('$_'),
    lhsRe('.'),
    rhsEval(
        expandBackslashed(
            rhsEval('
                concat(
                    \'A\',
                    getVar(\'$hop\')
                );
                '
            )
        )
    )
);

[download]

Replies are listed 'Best First'.
Re^12: hex code passed from command line is interpreted literally in substitution
by Allasso (Monk) on Mar 11, 2011 at 13:22 UTC
    I really appreciate you going through all the effort to put this together. It's going to take some time for me to assimilate it all.
[reply]

In Section Seekers of Perl Wisdom