in reply to Reload a script with a new value for input when submit is clicked on an html form

[ The OP has been updated to incorporate the following code. Originally, it didn't use CGI, and $text_input was initialised from the constant unconditionally. ] 

use CGI;
my $cgi = CGI->new();
my $text_input = $cgi->param('text') || "The quick brown fox jumped ov
+er a lazy dog.";

[download]

Update: Added missing ";" as per reply.

Replies are listed 'Best First'.
Re^2: Reload a script with a new value for input when submit is clicked on an html form
by Lady_Aleena (Priest) on Feb 23, 2010 at 18:02 UTC

    That did not work with the above script, though I did catch the missing semicolon at the end of line 3. Could it be that I am using the wrong action or method in the form? The methods get and post did not change the result, so I am leaning more towards action as the culprit. I looked through CGI for the answer, but I am coming up blank. I am reading through it again.

    Have a nice day!
    Lady Aleena
[reply]
[d/l]
[select]
      <input type="text"/>
<input type="submit" value="submit"/>

      [download]
      should be 
      <input type="text" name="text">
<input type="submit" value="submit">

      [download]

      You didn't name the input field, so it wasn't getting sent to the server. Also, that slash is illegal HTML (although some browsers ignore it).

      Both GET and POST will work, but I'd recommend GET here since the request has no side-effects.

[reply]
[d/l]
[select]

        Thank you so very much! *gives cookies*

        Working code

        #!/usr/bin/perl
use strict;
use warnings;

use CGI;
use HTML::Entities qw(encode_entities);

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

my @options = qw(text color background_color);
my @family = qw(serif sans-serif cursive fantasy monospace);
my @size = qw(xx-small x-small small medium large x-large xx-large);
my @weight = qw(normal bold 100 200 300 400 500 600 700 800 900);
my @variant = qw(normal small-caps);
my @style = qw(normal italic oblique);

my $cgi = CGI->new();
my $text = encode_entities($cgi->param('text')) || "The quick brown fo
+x jumps over the lazy dog.";
my $color = encode_entities($cgi->param('color')) || "#000";
my $background_color = encode_entities($cgi->param('background_color')
+) || "transparent";

print <<"sec1";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/T
+R/html4/strict.dtd">
<html><head><title>Font and Color Tests</title>
<style type="text/css">
h1 {font-size:14pt;}
h2 {font-size:12pt;}
p {border:1px #333 solid;}
</style>
</head>
<body>
<h1>Font and Color Tests</h1>
<form action="$ENV{REQUEST_URI}" method="get">
sec1

for my $option (@options) {
  my $display_option = ucfirst $option;
     $display_option =~ tr/_/ /;
  print qq{<div>\n<label for="$option">$display_option: </label>\n<inp
+ut type="text" id="$option" name="$option">\n</div>};
}

print <<"sec2";
<div>
<input type="submit" value="submit">
<a href="font.pl">Start over</a>
</div>
</form>
sec2

for my $style (@style) {
  for my $variant (@variant) {
    for my $weight (@weight) {
      for my $size (@size) {
        for my $family (@family) {
          print qq{<h2>style: $style; variant: $variant; weight: $weig
+ht; size: $size; family: $family; color: $color; background-color: $b
+ackground_color;</h2>\n};
          print qq{<p style="font:$style $variant $weight $size $famil
+y;color:$color;background-color:$background_color;">$text</p>\n};
        }
      }
    }
  }
}

print "</body></html>";

        [download]
        Have a nice day!
        Lady Aleena
[reply]
[d/l]

In Section Seekers of Perl Wisdom