perl validate id number code example

Example: perl validate id number

# NB--> Language: Perl
# NB--> Country of ID: South Africa (RSA)
use Scalar::Util 'looks_like_number';
sub Validate_IdNum($);
sub GetLuhnDigit($);

#----------------------------------------------------------------#
# Validates the id number being parsed and returns a boolean, 
# If the id number is valid, returns 0, otherwise returns 1
#      PARAMETERS
#                <sIdNo> The id number that needs to be validated
#      EXAMPLES
#               <IN:94091850160a0> <OUTPUT:[0]["Id number cannot contain numeric values"]>
sub Validate_IdNum($)
{
   my $sSubName = (caller(0))[3]; # This is just a reference to the function/subroutine name
   my $bFaulty = 0;

   my $sIdNo = $_[0];
   
   my $iStrLen = length $sIdNo;
   my $LastChar = substr($sIdNo, - 1);

   if ( looks_like_number($sIdNo) == 0 ) {
      $bFaulty = 1;
   }
   else {
      if ( (length $sIdNo) != 13 ) {
         $bFaulty = 1;
      }
      elsif ( substr($sIdNo, - 1) != GetLuhnDigit($sIdNo) ){
         $bFaulty = 1;
      }
   }

   if ($sRetMsg eq "") {
      $sRetMsg = "0";
   }

   return ($sRetMsg,$bFaulty);
}

#----------------------------------------------------------------#
# Used to validate rsa id numbers: (finds expected last digit given the first 12)
# {See the Luhn algorithm: https://en.wikipedia.org/wiki/Luhn_algorithm}
sub GetLuhnDigit($)
{
   my $sSubName = (caller(0))[3]; # This is just a reference to the function/subroutine name
   my $iLastDigit = -1;
   my $s12Digits = $_[0];
   my $iSumOdd = 0;
   my $iEvenDigits = "";

   for (my $i=0;$i<6;$i++) {
     $iSumOdd = $iSumOdd + substr($s12Digits,2 * $i,1);
   }

   for (my $i=0;$i<6;$i++) {
     $iEvenDigits = $iEvenDigits . substr($s12Digits,(2 * $i) + 1,1);
   }

   my $iDblEven = 2 * $iEvenDigits;
   my $iSumDblEvens = 0;
   
   for (my $i = 0; $i < length($iDblEven); $i++) {
      $iSumDblEvens = $iSumDblEvens + substr($iDblEven,$i,1);
   }

   my $iUnitVal = $iDblEven;
   my $iFinalBase = $iSumOdd + $iSumDblEvens;

   $iLastDigit = 10 - substr($iFinalBase, - 1);

   if ($iLastDigit == 10) {
      $iLastDigit = 0;
   }

   return $iLastDigit;
}