hidden value

in one perl script i try to send
a variable to another script
like this

        print "</table>";
                         print $q->submit;
                         print $q->reset;
                    print hidden(-name=> 'file', -value => $bestfile);
         print "<br>";

                         print $q->endform;        

and then in the next script i try to get that value by doing

print "QS is $ENV{QUERY_STRING}<br>";      

but it just prints out "QS is "

Who is Participating?
mattropeConnect With a Mentor Commented:
Okay, when you use POST, the variables come into your script through STDIN rather than through an environment variable.  You can either switch your program to use GET, or you can read the data from STDIN.  Be aware that either way, you'll still have to decode and separate the values for the variables.

Hope this helps.
Are you submitting your form using the GET or POST method?  (GET is the default)

Also check the actual HTML source code to make sure the proper HTML is getting generated (there should be an <INPUT TYPE=hidden> field in there after the submit and reset button...
paulwhelanAuthor Commented:
im using post

the hidden tag is in there (see original question)

Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

By the way, if you don't know how to decode the incoming form data, there are libraries that can do it for you (cgi.pm, cgi-lib.pl, etc.)
paulwhelanAuthor Commented:
ao if $ENV{QUERY_STRING} is set to the value in post
then what is the variable in get?
In GET, the variable that contains the encoded data is $ENV{QUERY_STRING}.

In PUT, the data is not in a variable yet, but rather in the STDIN filestream (so you read it into a variable and decode it yourself).

Here is a snippet of code from cgi-lib.pl that deals with this.  Note that for the POST case, the data is read from STDIN:

    if (!defined $meth || $meth eq '') {
      $in = $ENV{'QUERY_STRING'};
      $cmdflag = 1;  # also use command-line options
    } elsif($meth eq 'GET' || $meth eq 'HEAD') {
      $in = $ENV{'QUERY_STRING'};
    } elsif ($meth eq 'POST') {
        if (read(STDIN, $in, $len) != $len) {$errflag="Short Read\n";};
    } else {
      &CgiDie("cgi-lib.pl: Unknown request method: $meth\n");
It appears that you are using CGI.pm.  If that is the case, you can have all of your CGI variables automatically read into a hash called %in by doing the following:


Then you can access your variables as follows:

  print "QS is $in{file}<BR>";

I do not know exactly whats going on here, but there is one thing you should be aware of.
If you define (maybe implicitly) something in the environment it will be lost after a script had finished. When another script starts working it do so with a (re)fresh(ed) environment.
If things in the environment should live longer as for the lifetime of a called script you have to do special things depending on the operating system you are using.
But as I said at the beginning ...
use CGI;
$q = CGI::new;
print $q->param('file');
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.