Hope I'm not missing the context of the question :-o

----------

You can include Javascript as any HTML code

            print "<script language=\"JavaScript\">\n";
            print "   var SealoffSource = true\; /* Deshabilitar Click
Derecho. */\n";
            print "     function click() {if (event.button==2)
{alert(\'Hardware: Mouse - Error. Please reboot.\')}}\n";
            print "document.onmousedown=click\;\n";
            print "</script>\n";

Just be careful to not miss a backslash.

Or, as Dan said, use Here Documents.
I've found some details here:
http://www.perldoc.com/perl5.8.0/pod/perlfaq4.html#Why-don't-my-%3c%3cHERE-d
ocuments-work-

-rm-

----- Original Message -----
From: Dan Muey <[EMAIL PROTECTED]>
To: Robbie Staufer <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, March 26, 2003 1:03 PM
Subject: RE: javascript and perl dbi



Please post to the list so everyone can play.

>Dear Dan,
>
>Like you, I think that perl can do everything php can do, and more.  I'm in
the learning stages, so don't know alot about >either, but I've used both a
few times.

>So taking your advice, I have a perl script that will eventually do
everything I need.  But I don't know how to place the >java script inside
the perl script.  For example, in html, I just put the java script in the
<head> area, and again in the >body wherever I want the interactive menus to
appear.

>But in perl, if I use print $query->start_html('BMDB Query Form');

If that finction won't do what you need then don't use it.

See search.cpan.org and look for CGI.pm there's lots of info there.

You could use a 'here' doc.

print <<HTML;
<html><head>

javascript...

</head><body>
...
HTML

Just watch out for your quotes and backslash them if need be.

DMuey


>there's no <head> tag to house the java script.  So I don't know where to
put it.

>I hope I explained my question clearly.  Can you show me an example of how
it should look?

>Many thanks,
>Robbie

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to