#1
  1. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    May 2000
    Posts
    2
    Rep Power
    0
    I have on my html page a combobox control named "Familia". How do I read on a Perl script the selected value that combobox?

    I guess it should be something like this:

    $Value= $FORM{'Familia'};

    but I've got and Internal Server Error.

    Can somebody help me???????
  2. #2
  3. .Net Developer
    Devshed Novice (500 - 999 posts)

    Join Date
    Feb 2000
    Location
    London
    Posts
    987
    Rep Power
    15

    <<$Value= $FORM{'Familia'};>>

    For getting your value like this you should parse the form.

    here i am writing an example showing how you can parse value from a form using POST Method.

    #############
    # Parse form

    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

    #read the values from envourment variable .store in buffer.

    @pairs = split(/&/, $buffer);

    #split that buffer value

    foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);

    #separate name and values from the pair.

    $value =~ tr/+/ /;
    #remove all the + from value..
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|n)*-->//g;
    $value =~ s/<([^>]|n)*>//g;
    $FORM{$name} = $value;
    #assain all the value to name..
    }
    ##############

    now you can get the value like this.

    $Value= $FORM{'Familia'}

    ##############-------############-###########--

    If you you can use cgi.pm module you can get the input very easily.


    see this example..

    test.htm

    <form method="post" action="test.cgi">

    <select name="Familia">

    <select size="1" name="Familia">
    <option selected value="one">one</option>
    <option value="two">two</option>
    <option value="three">three</option>
    </select>

    <input type="submit" name="submit" value="submit">
    </form>


    test.cgi

    #!/usr/perl/bin

    use CGI;
    #use CGI.pm module

    $q=new CGI;


    $value=$q->param('Familia');

    #get the parameter from name field
    # and store in $value variable.

    print $q->header;
    #print the header
    print "<html>n";
    print "<head><title>Test</title></head>n";
    print "<body>n";

    print "<h1>Testing form input</h1>n";
    print "<b>Selected value is: ".$value."</b>n";

    #just call the $value varable here.
    print "</body>n";
    print "</htm>n";

    Hope this may help you to solve your problem..


    Good Luck!!!!!




    ------------------
    SR -
    shiju.dreamcenter.net

    "The fear of the LORD is the beginning of knowledge..."

IMN logo majestic logo threadwatch logo seochat tools logo