print qq(Using qq() works remarkably well and preserves newlines,
tabs, etc. Here docs are... legacy, in my mind and are less friendly to
editors (such as emacs). See if moving to qq() solves your problems, if
not, then ... I dunno.);
This is more along the lines of a PS than anything else, but it
works for all interpolated envs in perl. Ex:
print qq(the result of 1 + 1 = @{[1 + 1]}\n);
Inline code evaluation w/in a string... combine this w/ the
ternery operator ((EXPR) ? (TRUE) : (FALSE)) and you've got a pretty
inline scripting tool that's not emb perl. The only gotcha is that you
can't have multiple statements (ex: @{[ EXPR; EXPR2; EXPR3 ]}). That
should turn up an error. Anyway, fyi.
--SC
--
Sean Chittenden <[EMAIL PROTECTED]>
My CODE of ETHICS is vacationing at famed SCHROON LAKE in upstate New
York!!
On Thu, 13 Jan 2000, Chris wrote:
> Date: Thu, 13 Jan 2000 07:55:36 +1100
> From: Chris <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
> [EMAIL PROTECTED], [EMAIL PROTECTED]
> Subject: Embperl emergency
>
>
> Hi,
>
> I've just upgraded to Embperl 1.2.1 and I've stuffed my webserver. It
> appears the problem is that I've been writing code like this..
> print <<EOF
> <HTML>
> EOF
>
> This used to work, but I guess it's wrong. I've tried $optRedirectStdout
> but it quotes everything...
> <HTML> which is not what I want.
> I've tried $optDisableHtmlScan, but that doesn't seem to help in this
> case.
>
> The code in question is in another perl module that doesn't seem to have
> access to OUT, so I can't print to that. I've tried passing OUT as a
> parameter to the subroutine (\*OUT or *OUT{IO}) but I can't seem to get
> the syntax right or something because it just complains that $OUT is
> undefined.
>
> Can someone help get my webserver back on line!?
>
> Thanks,
>
> Chris Bitmead
> mailto:[EMAIL PROTECTED]
>