@sauces = <<End_Lines =~ m/(\S.*\S)/g;
normal tomato
spicy tomato
green chile
pesto
white wine
End_Lines
At 06:51 AM 1/9/04 -0800, you wrote:
Jan Eden wrote:
> Hi,
>
> this is not so much a technical as a stilistic question: How do you indent here-quoted parts? When writing code like this:
>
> foreach $letter ('a'..'z') {
> my $upletter = uc $letter;
> print ALPHAINDEX <<"EOF";
> <hr />
> <p><a name="${letter}link"></a>
> <b>$upletter</b>
> <a href="#Navbar"><img src="../../gifs/up.gif" alt="" border="0" width="12" height="15" /></a></p>
> <ul>
> EOF
>
> The tabs get printed into the filehandle ALPHAINDEX. But not indenting the here-quoted part makes the script less readable.
>
> Any suggestions? Thanks!
>
> - Jan
Hi Jan,
I have notd the same difficulty, which is why I rarely use the heredoc tool. My suggestion would be to give any printing or
string generating function using heredocs the entire function to itself. This way the printiable text makes sense in its own
right, without the jarring effect on the surrounding code.
Joseph
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
