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

Maybe cleaner, or maybe not ...

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

print "-------\n";
print json_q();
print "-------\n";
print json_here();
print "-------\n";

is(json_q(), json_here(), "should be the same");

sub json_q {
q(      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
});

}

sub json_here { <<'END_JSON' =~ s/\n\z//r }
      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
}
END_JSON
[download]

Comment on Re: Is a here-doc a good way to retrieve data file contents for testing? Download Code

Replies are listed 'Best First'.
Re^2: Is a here-doc a good way to retrieve data file contents for testing? by haukex (Bishop) on Jan 17, 2021 at 08:42 UTC
`sub json_here { <<'END_JSON' =~ s/\n\z//r }` Although I'd probably have done something similar, I just wanted point out that `s///r` requires Perl 5.14+, which may be a limitation if this is a module that is intended to be compatible with a broad range of Perl versions. `sub json_here { chomp( my $json = <<'END_JSON'); $json }` works fine too.	[reply] [d/l] [select]
Re^2: Is a here-doc a good way to retrieve data file contents for testing? (updated) by LanX (Cardinal) on Jan 17, 2021 at 02:04 UTC
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]	[reply] [d/l] [select]
Re^3: Is a here-doc a good way to retrieve data file contents for testing? (updated) by tybalt89 (Prior) 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]
Re^4: Is a here-doc a good way to retrieve data file contents for testing? (updated) by LanX (Cardinal) on Jan 17, 2021 at 03:24 UTC
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]
Re^5: Is a here-doc a good way to retrieve data file contents for testing? (updated) by Corion (Pope) on Jan 17, 2021 at 07:06 UTC
Re^6: Is a here-doc a good way to retrieve data file contents for testing? (updated) by haukex (Bishop) on Jan 17, 2021 at 08:51 UTC
Some notes below your chosen depth have not been shown here


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

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

UPDATE