Re: Here document construct problem

in reply to Here document construct problem

As I pointed out in the CB both the here docs and qq or q work for me; so the error is either somewhere else or you forgot to end a HERE doc somewhere. my test case:

$blah = "something";
#$blah printed as $blah
print q(
      <blahtag>blah blah $blah</blahtag>
      <blahtag>blah blah $blah</blahtag>
);
      #&printOwner($data{owner1});
      #&printOwner($data{owner2});
      #&printOwner($data{owner3});

#$blah printed as $blah's value (using q)
print q(
      <blahtag>blah blah ) . $blah . q(</blahtag>
      <blahtag>blah blah ) . $blah . q(</blahtag>
);

      #&printOwner($data{owner1});
      #&printOwner($data{owner2});
      #&printOwner($data{owner3});

#$blah printed as $blah's value (using qq)
print qq(
      <blahtag>blah blah $blah</blahtag>
      <blahtag>blah blah $blah</blahtag>
);
[download]

Judging by the amount of HTML your printing using HERE docs in your code, you might want to look at HTML::Template. Which would allow you to seperate your HTML and perl code (which is much easier to debug and update).

"Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

In Section Seekers of Perl Wisdom