Perl Generating error on display.

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!

I am building an application that needs a table row added dynamically, well the code works fine if it is an html file, but I want this html to be inside of a Perl code. The problem is that, there is something that Perl don’t like, I can see it, maybe someone of you had a similar problem like that and could give a hand on this one!

Here is the code and thank you very much!!!

#!/perl/bin/perl.exe

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

print header();

print <<HTML;

   <html>
       <head>
           <title>Add or Remove Rows Dynamically</title>
           <script type="text/javascript">
               <!--
               var count = 1;
               var nRows = 2;
               
               function addRow() {
                   
                 var tBody = document.getElementById('theBody');
                 var newRow = document.createElement('tr');
                 var col1 = document.createElement('td');
                 var col2 = document.createElement('td');
                 var col3 = document.createElement('td');
                 var rA = document.createElement('a');
   
                 newRow.setAttribute('id', 'n' + count);
                   
                      rA.setAttribute('href', 'javascript:removeRow(\'
+n' + count + '\');');
                 rA.appendChild(document.createTextNode('Remove'));
                       
                 col1.appendChild(document.createTextNode('Col 1 Row '
+ + nRows));
                 col2.appendChild(document.createTextNode('Col 2 Row '
+ + nRows));
                   col3.appendChild(rA);
   
                   newRow.appendChild(col1);
                   newRow.appendChild(col2);
                   newRow.appendChild(col3);
   
                   tBody.appendChild(newRow);
   
                   count++;
                   nRows++;
       
               }
   
               function removeRow(rowId) {
                 var tBody = document.getElementById('theBody');
                   
                 tBody.removeChild(document.getElementById(rowId));
                   nRows--;
               }
               -->
           </script>
       </head>
       <body>
           <table border=1>
               <tbody id=\"theBody\">
                   <tr>
                     <td>Policy Number:</td>
                     <td><input type=text name=policy value=\"\"></td>
              </tr>                 
               </tbody>
           </table>    
           <p><a href="javascript:addRow()">Add Row</a></p>
       </body>
   </html>


HTML
;
[download]

Comment on Perl Generating error on display. Download Code

Replies are listed 'Best First'.
Re: Perl Generating error on display. by zer (Deacon) on Mar 25, 2008 at 17:33 UTC
your code works fine. The problem you may be coming across is your shebang line. It looks like you mixed linux with windows. `#!/perl/bin/perl.exe` [download] for a typical linux machine it would look similar to #!/usr/bin/perl. And for windows it would be the full path to the program. What is the error that you are getting?	[reply] [d/l]
Re^2: Perl Generating error on display. by Anonymous Monk on Mar 25, 2008 at 17:42 UTC
Sad, sad I am on Windows!	[reply]
Re^3: Perl Generating error on display. by zer (Deacon) on Mar 26, 2008 at 05:39 UTC
http://aspn.activestate.com/ASPN/docs/ActivePerl/5.10/faq/Windows/ActivePerl-Winfaq4.html#What_s_the_equivalent_of_the_she ActivePerl 5.10 documentation windows specific notes which will get you going and explain the little quirks. Shebang doesn't work the same on windows as it would with a linix system. You likely need to add perl to your path and associate the file type. It is all explained in here. As a default, provided you put the full location in the command line of perl, then the file you want to run. It should go for you. That being said, that is for regular scripts. Apache may use the shebang line, otherwise an alias needs to be set up in the http.conf. Good luck	[reply]
Re: Perl Generating error on display. by superfrink (Curate) on Mar 25, 2008 at 19:12 UTC
Are you seeing any error message anywhere? For example in the browser window or the server logs? Does the page load but the javascript doesn't seem to work? If so load both the CGI and HTML pages in your web browser. Save each webpage to a separate file and compare the two saved files. Try requesting the CGI and HTML pages using `wget -S` to see the headers sent by the server. Maybe you need to specify the `Content-type` in the `print header();` call.	[reply] [d/l] [select]


Perl-Sensitive Sunglasses
	PerlMonks