Help for this page

Select Code to Download


  1. or download this
      DB<28> sub EXPR { print "executed" }

...

  DB<30> ${test}_bar
Bareword found where operator expected at ...
  2. or download this
    use strict;
use warnings;
...
my $var4 = qq(aaa/$test_hash{ "${test}_bar" });   # "" inside qq()
print("var4 = $var4\n");
  3. or download this
    var1 = aaa/baz
var2 = aaa/baz
var3 = aaa/baz
var4 = aaa/baz
  4. or download this
    my $var5 = sprintf 'aaa/%s', $test_hash{ "${test}_bar" };   # inside-o
+ut
print("var5 = $var5\n");