2
\$\begingroup\$

I was using this code to fetch a CGI parameter:

$page = int(param('page'));

This sometimes results in:

warning: Use of uninitialized value in int

Is this a good solution to resolve this warning, or is better and more succinct code available?

if (defined param('page')) {
    $param_page = int(param('page'));
} else {
    $param_page = 1;
}
\$\endgroup\$
  • \$\begingroup\$ What is the param function? \$\endgroup\$ – 200_success Jun 15 '16 at 20:50
  • \$\begingroup\$ I have use CGI qw/:standard/ at the top of my script which imports the param() function. param() gets a value from the query string. \$\endgroup\$ – Leo Galleguillos Jun 15 '16 at 20:53
5
\$\begingroup\$

Standard practice is to scope variables using my.

Since Perl 5.10, the preferred way to write this is to use the logical defined-or operator to provide a default value when undef is encountered.

my $param_page = int(param('page') // 1);
\$\endgroup\$
  • 2
    \$\begingroup\$ By the way, if you think you should interpret an erroneous "0" parameter value as page 1, then you should use the || operator instead. \$\endgroup\$ – 200_success Jun 15 '16 at 21:05

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.