embedding javascript using html into perl script

**happyse27** · Jul 2 '09, 03:48 AM

pls advise why onsubmit="retur n ValidateForm1(' this')" did not work in the form validation... The below example worked however...

Code:

#!c:/perl/bin/perl.exe -w
#!/usr/local/bin/perl

my $random_number = int( rand( 10)); 

print "Content-type: text/html\n\n";
print qq|

<html> 
<head> 
<title>A Random Number</title> 

<script language="JavaScript" type="text/javascript">
var myNumber = $random_number; 

function display() { 
alert( "Your random number is "+ myNumber); 
} 
</script> 

<style> 
.display { padding: 50px; text-align: center; background: lightblue; } 
</style> 

</head> 

<body> 
<div class="display" onMouseOver="display();">HOVER HERE TO SEE THE NUMBER!</div> 
</body> 

</html> |;

**KevinADC** · Jul 2 '09, 04:52 AM

In your first code you have this:

Code:

print qq%
 
#this portion will be html with javascript alone, except %; at the closing end.

You need to remove the line that starts with # because that is not a comment that is just text inside of a qq string and the % symbol is breaking your code in that line. I don't know if that will make your javascript code work but it should make your perl code work.

**happyse27** · Jul 2 '09, 10:59 AM

oh, the # comment was not part of the code. Only my comments... at wits end. Surveyed many websites... still not able... thanks...

embedding javascript using html into perl script

embedding javascript using html into perl script

Comment

Comment

Comment