Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 199
  • Last Modified:

How do I populate form data from a data file when a page is loaded

I browsed around a little to try to find an answer to this but had no luck.   I'm creating a page containing text input data that I would like to populate with data read in from a file when the page is loaded.  For example:

NAME1:
ADDRESS1:

NAME2:
ADDRESS2:

I have a Perl script that reads and processes the data file but how do I get that data back to the form so that I can update the text boxes?

Thanks
0
planetiowa
Asked:
planetiowa
  • 3
  • 3
1 Solution
 
ozoCommented:
<input type="text" name="NAME1" value="$data" />

If you need more, it might help if you show us your Perl script.
0
 
planetiowaAuthor Commented:
So based on your response, if I execute my script with a onload command in my HTML, does this mean that any variables declared in the script (such as $data) will be available to the HTML page?

My Perl script is just in bits and pieces but I can clean it up and list it if that helps.
 
0
 
planetiowaAuthor Commented:
I was trying to play around a little more to try to get it to work.  In the following snippet, I execute a perl script when the page is loaded (the syntax is based on an example I found on the web).  One problem I'm running into with this though is that it doesn't seem to return from the Perl script (I never see the "Hello this is the main page" message).  I did confirm that my Perl script runs because it prints out its result.

<html>
<head>
<title></title>
<script language="javascript"><!--
function runcgi(){
window.location.href='/cgi-bin/tourntest.pl';
}
// -->
</script>
</head>
<body>
<script type="text/javascript" language="javascript"> onload = runcgi()</script>


<p> Hello this is the main page. <p>

<input type="text" name="NAME1" value="$data" />

</body>
</html>

---------------------------------
PERL SCRIPT:

#!/usr/bin/perl
use CGI ':standard';

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

$data = "My Name";

print "HELLO - END OF SCRIPT\n";
0
How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

 
ozoCommented:
#!/usr/bin/perl
use CGI ':standard';
print header;
print start_html(-script=>"
function runcgi(){
window.location.href='/cgi-bin/tourntest.pl';
}");

if( param() ){
     print "Your name is",em(param('NAME1')),p;
     print end_html;
}else{
    $data = "My Name";
    print "<p> Hello this is the main page. <p>\n";
    print start_form;
    print qq(<input type="text" name="NAME1" value="$data" />\n);
    print end_form;
}
print "HELLO - END OF SCRIPT\n";
print end_html;
0
 
ozoCommented:
Sorry, I left an extra end_html in the if( param() ){ condition.
0
 
planetiowaAuthor Commented:
Thanks, I'll give this a try when I get off work.  One question though - where does this fit in in the example I showed?  Does this replace the "tourntest.pl" PERL script that is called when the page is loaded or is this called and executed in some other way altogether?
0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now