1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

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