Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Does Perl have if(isset?

by beanscake (Acolyte)
on Jan 24, 2014 at 20:13 UTC ( #1071990=perlquestion: print w/replies, xml ) Need Help??
beanscake has asked for the wisdom of the Perl Monks concerning the following question:

Please i need a solution for this, i want to use (PERL) to process a form instead of PHP, now my only problem is converting this LINE to (PERL) SCRIPT.
<?php if(isset($_POST['comment'])) $comment = $_POST['comment']; ?>
Thank you.

Replies are listed 'Best First'.
Re: Does Perl have if(isset?
by Corion (Pope) on Jan 24, 2014 at 20:29 UTC

    According to the PHP documentation on isset(), the function returns true if the variable has a defined value. This would be equivalent to the defined function of Perl:

    $comment= param('comment') if defined param('comment');

    I think the $_POST hash in PHP is populated by HTTP POST parameters - you would have to check that too.

Re: Does Perl have if(isset?
by Your Mother (Chancellor) on Jan 24, 2014 at 20:21 UTC

    You should put your code in <code> tags. And without knowing a little Perl this is unlikely to get you far but this is roughly equivalent. I didn't use the if block because it is unperly (to me) when there is no real else.

    use strict; # DO NOT LEAVE OUT. use warnings; # What did I just say?! use CGI ":standard"; my $comment; $comment = param("comment") if request_method() eq "POST"; # Note, $comment could be undefined/uninitialized here # but this is similar to your logical block.
Re: Does Perl have if(isset?
by karlgoethebier (Prior) on Jan 24, 2014 at 21:01 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1071990]
Approved by Corion
Front-paged by Sinistral
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2017-09-20 20:26 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (239 votes). Check out past polls.