Solved

I want to receive 1 or 2 input values

Posted on 2000-03-16
1
138 Views
Last Modified: 2010-03-05
I want to receive 1 or 2 input values from internet users in order to make searches in an ascii file and i want the searching results to be aligned in the web page.
2)How this script can be executed from my page
May I have an example.
Thank you
0
Comment
Question by:vage78
1 Comment
 
LVL 3

Accepted Solution

by:
guadalupe earned 15 total points
ID: 2627837
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>

</HEAD>

<BODY BGCOLOR="#FFFFFF">
<FORM METHOD=POST ACTION="/cgi-bin/script.cgi">
<INPUT TYPE="text" NAME="val1">
<INPUT TYPE="text" NAME="val2">
</FORM>
</BODY>
</HTML>



######################################
#CGI Script: script.cgi


#!/usr/local/bin/perl

&parseInput;


#Rest of code

#This will leaves all variables in a hash called %fields where the key is the
#Name of the form field and the value the value of the correspnding field.
#!!!!Be carefull with checkboxs they are only sent as form elements if they are
#checked...





#---------------------------------Parse Input---------------------------------------#
#                  Arguments:      NONE                                                                                    #
#                  Purpose            Standard Form/Query String Parsing                                          #
#                  Calls:            NONE                                                                                    #
#-----------------------------------------------------------------------------------#

sub parseInput()
{
      #Parse form variables
      if ($ENV{'REQUEST_METHOD'} eq "POST")
      {
            read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
      }

      elsif ($ENV{'REQUEST_METHOD'} eq "GET" )
      {
            $temp = $ENV{'QUERY_STRING'};
      }

      @pairs=split(/&/,$temp);
      
      foreach $item(@pairs)
      {
            ($key,$content)=split (/=/,$item,2);
            $content=~tr/+/ /;
            $content=~ s/%(..)/pack("c",hex($1))/ge;
            $fields{$key}=$content;
      }

}
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
perl match and sort unique result 2 136
Strange perl issue 6 128
Perl tar error 8 65
Matching a random pattern with one common character 2 61
There are many situations when we need to display the data in sorted order. For example: Student details by name or by rank or by total marks etc. If you are working on data driven based projects then you will use sorting techniques very frequently.…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question