If you want your HERE documents to be indented you assign the document to a scalar, and then perform a substitution on leading whitespace for each line.

The Perl Cookbook provides a couple of good solutions. Here's an adaptation of one version.

($html = <<HERE_DOC) =~ s/^[^\S\n]//gm;
    your text
    goes here.
        Notice how indentation
        doesn't matter because
        the regexp bound to the
    HERE doc strips leading
    whitespace.
HERE_DOC
print $html;
[download]

This works by substituting any amount of whitespace (space, tab, form feed) at the beginning of the line with "nothing" unless the "whitespace" is a newline character (ie, it preserves newlines). Cool huh?

Enjoy!

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

That would be recipe 1.11. from The Perl Cookbook. I thought that was cool, until i starting using HTML::Template. ;)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

The line containing _EOF must not contain any white space at the beginning or end or it will not work!

This isn't true, you can have all the white space you want, as long as it's the same on both ends:

print <<"     _ EOF";
Blah
     _ EOF
[download]

Hiya jasonk,


This isn't true, you can have all the white space you want...

OK, hands up, you're right using the technique you supplied with double quotes, but the example I gave wouldn't have accepted spaces as it wasn't quoted... so it is true.

Thanks for the poke though. ;)