in reply to Re: Is a here-doc a good way to retrieve data file contents for testing?
in thread Is a here-doc a good way to retrieve data file contents for testing?

tybalt89, you are one of the most unorthodox Perl hackers I've seen so far and I mean it as a compliment. :)

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

UPDATE

WOW, this even allows interpolating variables from the function scope in the "outside" HERE-DOC ...

use strict;
use warnings;

print "-------\n";
print json_here(42,666);
print "-------\n";


sub chompit {
    my $str = shift;
    chomp $str;
    return $str;
}


sub json_here { my $x=shift; chompit << "__JSON__" }
      "Type": 0,
      "Width": 504,
      "X": $x,
      "Y": $_[0]
    }
  ]
}
__JSON__

[download]

C:/Perl_524/bin\perl.exe -w d:/tmp/pm/chomp_here.pl 
-------
      "Type": 0,
      "Width": 504,
      "X": 42,
      "Y": 666
    }
  ]
}-------

[download]

Replies are listed 'Best First'.
Re^3: Is a here-doc a good way to retrieve data file contents for testing? (updated)
by tybalt89 (Monsignor) on Jan 17, 2021 at 02:56 UTC

    Because it's a lexer thing. To the parser it's just a string *inside* the body of the sub.

[reply]
      I know.

      But that's still not a guarantee, I doubt this was intended.

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

[reply]

        Why should that be unintended?

        See perlop on Quote-like operators, where here-documents are equivalent to nomal double-quoted strings, and that certainly holds true for the scope where they are evaluated in. This scope is determined by the place where the <<"FOO" occurs, not where the end of string marker sits, since here-docs are a line-oriented quoting mechanism.

        I'm pretty sure that this behaviour is intentional and has been a long time in Perl and will stay.

[reply]
[d/l]

In Section Seekers of Perl Wisdom