Re: reverse interpolation

Is that a trick question? By using a look up table aka hash...

my %map = ( "\t" => '\t' );
my $y = "\t";
print $map{ $y };
[download]

After skimming referenced post ... Removed unnecessary chr ord functions.

Comment on Re: reverse interpolation Select or Download Code
Re^2: reverse interpolation by gleeco (Novice) on Sep 17, 2008 at 06:53 UTC
so obvious i'm obviously not... but why the trouble with chr ord when it works without? thanks!	[reply]
Re^3: reverse interpolation by parv (Priest) on Sep 17, 2008 at 07:00 UTC
You missed the update by a few seconds! You are right that chr ord chain was unnecessary (I started by finding the number to represent a tab, which I changed to use "ord", which changed to just the interpolated string). Obviously, I should have just started & ended with plain tab ... as you wrote "so obvious i'm obviously not". `:}`	[reply]
Re^2: reverse interpolation by Erez (Curate) on Sep 17, 2008 at 07:09 UTC
Is that a trick question? Seeing as the title is "reverse interpolation", the OP probably wondered whether there is some way to have perl magically understand that if $foo = "bar", then `print "bar"` could actually print '$foo'... Seeing as it isn't, a more sensible approach emerged. Stop saying 'script'. Stop saying 'line-noise'. We have nothing to lose but our metaphors.	[reply] [d/l]