Is $formdata present?

[ecuguru]

Hi
I've got code below (copy/pasted) that works for grabbing data from a post/get request.
Can someone tell me what function I can use to check to see if a value was submitted or not? I have played with exists and defined, but couldn't get either to work right.
A user can post and id and another number. If the number isn't provided, I have a default number that I replace it with later. But I can't figure out how to tell perl that if the value isn't submitted, tell me.

Any ideas? And Thanks in advance!

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        @pairs = split(/&/, $ENV{'QUERY_STRING'});
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs = split(/&/, $buffer);
} else {
        print "Content-type: text/html\n\n";
        print "<P>Use Post or Get";
}

foreach $pair (@pairs) {
        ($key, $value) = split (/=/, $pair);
        $key =~ tr/+/ /;
        $key =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
        
        $value =~s/<!--(.|\n)*-->//g;
        
        if ($formdata{$key}) {
                $formdata{$key} .= ", $value";
        } else {
                $formdata{$key} = $value;
        }
}

$id = $formdata{'id'};
$num = $formdata{'num'};      #If there great, if not how do i know?
$num = sprintf("%3.3f",$num);  #if num is not present, this makes num 
+0.

[blazar]

Possibly OT wrt your actual question - I must admit I didn't even read it carefully.

I have only extremely limited experience myself. But they all recommend to avoid reinventing the wheel with the risk of doing it wrong and

use CGI;

instead. And I mean experienced hackers that could well reinvent the wheel...

[stonecolddevin]

Ewwwwwiiie! use CGI, and read Ovid's CGI course on how to use it and why.
You'll come to find that manually trying to parse form data gets tiresome and leads to broken code 9/10 times¹.
¹ Statistics not validated by the FDA or any other official affiliation.

[tchatzi]

I think you should consider reading the documentation of CGI. You can find it here CGI .
It will be easier for you, if you use CGI to work with forms.

[Anonymous Monk]

Correct. CGi.pm will work for both POST and GET. For existence u couldd use something like..

use CGI qw(:standard);
my %formdata = ();
map {
    $formdata{$_} = param($_);
} param;
if(exists $formdata{'parametername'})
    {do something;}

20050606 Janitored by Corion: Added formatting, put code in between <code>...</code> tags

[techcode]

While using CGI.pm is a good thing, you still made it more complicated than it should be, at least if you ask me ...

use strict;
use CGI;

my $q = new CGI;
my $form = $q->Vars();

if(exists $form->{parameter_name}){
   #do whatever
}

Of course, you can also use Data::FormValidator. It's suggested if you need more complicated form validation.

[ruoso]

And multipart-formdata encoding also, which you simply ignored.

[ecuguru]

So what's the difference functionally between Defined and Exists? I thought Exists was used for subroutines and hashes? (clearly wrong)..

[Anonymous Monk]

Sorry.. I'm new. Will soon register myself and format my code. But my answer should work for you.
Happy Coding

[jpeg]

would either of these work?

if (length($formdata{'num'}) == 0) { #... }

if ($formdata{'num'} eq '' ) { #... }



obligatory 'use CGI' suggestion goes here

[ecuguru]

Yes and no..
Yes it works and it will execute correctly.
No because you get runtime warnings about trying to do operations with a nonexistant variable
If you have your code online and hit enough times, it just jams up the error log something fierce.