Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Forms and interaction in CGI

by smitz (Chaplain)
on Sep 11, 2003 at 09:35 UTC ( [id://290629]=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://290629]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2024-06-24 19:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.