http://qs1969.pair.com?node_id=290629


in reply to Forms and interaction in CGI

Hallo Roman,

You say you need some forms and radio buttons, are you sure you are not looking to print HTML?
Have a look at CGI.pm, a tool which will help you print out HTML and parse submitted HTML forms.

I need a value (integer >0) stored in a variable. Like here:
Number(1..20000)?:_________

Im not quite sure what you mean here, you need an integer stored in a variable?
$variable = 42;
Can you rephrase?

In any case, examples of doing this kind of thing, if I have understood your question correctly, can be found in abundance in the CGI.pm documentation.

Smitz

Replies are listed 'Best First'.
Re: Re: Forms and interaction in CGI
by khelben (Initiate) on Sep 11, 2003 at 10:06 UTC
    This works good, thanks!
    use CGI qw/:standard/;
   print 
       header,
       start_html('Simple Script'),
       h1('Simple Script'),
       start_form,
       "What's your name? ",textfield('name'),p,
       "What's the combination?",
       checkbox_group(-name=>'words',
                      -values=>['eenie','meenie','minie','moe'],
                      -defaults=>['eenie','moe']),p,
       "What's your favorite color?",
       popup_menu(-name=>'color',
                  -values=>['red','green','blue','chartreuse']),p,
       submit,
       end_form,
       hr,"\n";

    if (param) {
       print 
           "Your name is ",em(param('name')),p,
           "The keywords are: ",em(join(", ",param('words'))),p,
           "Your favorite color is ",em(param('color')),".\n";
    }
    print end_html;

    [download]
    Im not quite sure what you mean here, you need an integer stored in a variable?
    $variable = 42;
    Can you rephrase?


    Maybe: "What's your name? ",textfield('name'),p,
    Here i need a number.
    Can I change the text of the button "Submit Query"?
    How can I put the output in a textfield with scrollbars?

    CU
    Roman
[reply]
[d/l]
[select]

      A textfield will take text including numbers, it is up to you to check if the user submitted a number on the server. As for changing the button text: 

      use CGI ':standard';
print submit( suggestion => 'RTFM' );
__DATA__
<input type="submit" name="suggestion" value="RTFM" />

      [download]

      cheers

      tachyon

      s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]
[d/l]

In Section Seekers of Perl Wisdom