my @params = $cgi->param();

foreach my $param ( @params ) {
   if ( $cgi->param( $param ) ) {
        print "<META NAME=\"$param\" CONTENT=\"", 
             $cgi->param( $param ), "\">";
   }
}
[download]

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

print '<meta name="', $key, '" content="', $formdata{$key}, '">'
    if length $formdata{$key};
[download]

This would easily allow you to iterate through the entire contents of the hash using a foreach loop with a keys %formdata construct.

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

I have a reservation I get into below, but here's another way to do it:

print $formdata{$_} ? qq(META NAME="$_" CONTENT="$formdata{$_}">\n) : 
+'' for keys %formdata;
[download]

My reservation is that the http server probably won't know to interpret meta tags as http headers for cgi output. The situation is similar to that for SSI - wrong handler. The solution is to feed your hash to the &CGI::header method.

I reread your question before posting. I think my reservation doesn't apply to your problem, if you are using perl to generate static html pages. I'll let the warning stand, since it may be relevant to others.

After Compline,
Zaxo

sub parse_form_data
{
    local (*FORM_DATA) = @_;

    local ($request_method, $query_string, @key_value_pairs,
           $key_value, $key, $value);

    $request_method = $ENV{'REQUEST_METHOD'};

    if ($request_method eq "GET") {
        $query_string = $ENV{'QUERY_STRING'};
    } elsif ($request_method eq "POST") {
        read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
    } else {
        &return_error (500, "Server Error",
                       "Server uses unsupported method");
    }

    @key_value_pairs = split (/&/, $query_string);

    foreach $key_value (@key_value_pairs) {
        ($key, $value) = split (/=/, $key_value);
        $value =~ tr/+/ /;
        $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

        if (defined($FORM_DATA{$key})) {
            $FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
        } else {
            $FORM_DATA{$key} = $value;
        }
    }
}
[download]

#!/usr/local/bin/perl

&parse_form_data (*simple_form);

print "Content-type: text/plain", "\n\n";
$address = $simple_form{'address'};
if ($address) {
    print "Your Address is ", $simple_form{'address'}, ".", "\n";
    print "Please visit this Web server again!", "\n";
} else {
    print "You did not enter a address.", "\n";
    print "But, you are welcome to visit this Web server again!", "\n"
+;
}
exit(0);
[download]

print map { qq[<META NAME="$_" CONTENT="$formdata{$_}">\n] }
     grep { defined $formdata{$_} and $formdata{$_} ne ''  }
       qw { author keywords description generator          };
[download]

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

Ok, most of you supplied information which I bet makes sense, but I am really new to perl and this is my first attempt to make a program. The program works without errors but it prints null coding.

I am not looking for you to just give me the codes to fix it, I really want to learn how to do this as I want to become a perl guru someday.

You can see the working script here . You can type in information, but leave some fields blank and see what happens. The results will be printed on the next page.

To see the source I am working with, goto source

Can someone use lamer terms (for a newbie) on the easiest way to fix this problem? Remember, I don't want the codes made for me, I want to learn from this.

I would VERY much appreciate this!

Thanks!!!!

venimfrogtongue

What (almost) everyone is suggesting is that you can solve your problem by approaching it in a differnet way. Instead of having a single print statement that outputs a scalar containing multiple lines of HTML -- with some sort of (unknown) embedded logic that is smart enough to supress lines that shouldn't be there, try having multiply calls to the "print" function, if-and-only-if the data is there to print that line.

This could be as simple as having unique calls for each line...

print "...html 1..." if ...condition_1...;
print "...html 2..." if ...condition_2...;
...
[download]

Or, since the lines are all very similar, and the values are driven by a hash anyway, you could loop over the keys...

foreach (keys %formdata) {
   print "...$formdata{$_} ...";
}
[download]

(The exception so far being Juerd's method of turning the foreach/print inside out using print/map)