1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Simple Negative Number Checking Subroutine in Perl

Discussion in 'Perl' started by pradeep, Oct 30, 2006.

  1. pradeep

    pradeep Team Leader

    Joined:
    Apr 4, 2005
    Messages:
    1,646
    Likes Received:
    86
    Trophy Points:
    0
    Occupation:
    Programmer
    Location:
    Kolkata, India
    Home Page:
    Many times we need to check whether a number is negative or not, here is a very simple subroutine to do that.

    Code:
    sub isNegative 
     {
         my($checkValue) = @_;
         if(abs($checkValue) != $checkValue) 
         {
             # the value is negative
             return 1;
         } 
         else 
         {
             # number is positive
             return 0;
         }
     }
     

Share This Page