Re: If statements while in PRINT

in reply to If statements while in PRINT

Let's assume that you have your parameters from CGI.pm. Then, you can do something like the following:

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

In Section Seekers of Perl Wisdom