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;
    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

      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" />

      cheers

      tachyon

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