in reply to curly braces inside of curly braces

While the hash is string-interpolated, is the hash-key inside an executed expression!

And ${test}_bar is not a valid expression.

Debugger demo:

DB<28> sub EXPR { print "executed" } DB<29> " $hash{ EXPR() } " executed DB<30> ${test}_bar Bareword found where operator expected at ...

So multiple ways to do it are:

use strict; use warnings; my %test_hash = ("foo_bar" => "baz"); my $test = "foo"; my $key = "${test}_bar"; my $var1 = "aaa/$test_hash{$key}"; print("var1 = $var1\n"); my $var2 = "aaa/$test_hash{ $test . '_bar' }"; # concat operator print("var2 = $var2\n"); my $var3 = "aaa/$test_hash{ qq(${test}_bar) }"; # qq() inside "" print("var3 = $var3\n"); my $var4 = qq(aaa/$test_hash{ "${test}_bar" }); # "" inside qq() print("var4 = $var4\n");

var1 = aaa/baz var2 = aaa/baz var3 = aaa/baz var4 = aaa/baz

And since you introduced printf

my $var5 = sprintf 'aaa/%s', $test_hash{ "${test}_bar" }; # inside-o +ut print("var5 = $var5\n");

update

On a side note: Another good reason why perl-strings and here-docs are not a safe template syntax.

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

Replies are listed 'Best First'.
Re^2: curly braces inside of curly braces
by AnomalousMonk (Archbishop) on Feb 05, 2022 at 20:51 UTC

    Nested paired delimiters also work:

    c:\@Work\Perl>perl use strict; use warnings; my %test_hash = ("foo_bar" => "baz"); my $test = "foo"; my $var5 = qq{aaa/$test_hash{ qq{${test}_bar} }}; # qq{} in qq{} print "var5 = '$var5' \n"; ^Z var5 = 'aaa/baz'


    Give a man a fish:  <%-{-{-{-<

      I agree a surfeit of curlies or any other delimiter can cause visual indigestion, but I wanted to use as many as possible to drive the point home in the example. :)

      Update: Oops... I meant this to be a reply to LanX's post.


      Give a man a fish:  <%-{-{-{-<

      Yeah true, their delimiters can be nested, but I'd chose other one(s) to avoid being distracted by other curlies like in ${test}

      qq(aaa/$test_hash{ qq(${test}_bar) });

      and readability is why I kept " in the first place

      qq(aaa/$test_hash{ "${test}_bar" });

      Cheers Rolf
      (addicted to the Perl Programming Language :)
      Wikisyntax for the Monastery