Brian T. Wightman
and 1 contributors

NAME

Algorithm::Damm - Calculate the Damm error correction check digit.

SYNOPSIS

  use Algorithm::Damm qw/check_digit is_valid/;

  $c = check_digit("43881234567");
  print "It works\n" if is_valid("43881234567$c");

DESCRIPTION

This module implements the Damm algorithm for calculating a check digit.

You can find information about the algorithm by searching the web for "Damm ECC". In particular, see the "SEE ALSO" section (below).

FUNCTIONS

is_valid CHECKSUMMED_NUM

This function returns 1 if the final character of CHECKSUMMED_NUM is the correct checksum for the rest of the number, 0 if not, and undef if CHECKSUMMED_NUM contains an invalid character or does not contain at least two digits (one for the number, and one for the checksum).

This function is equivalent to

  substr $N,length($N)-1 eq check_digit(substr $N,0,length($N)-1)

Additionally, due to the way this algorithm works, if you crank the checksum calculation through the last digit (checkdigit included), you will end up with a value of 0.

check_digit NUM

This function returns the checksum of the given number. It will return undef if it is not able to calculate the checksum.

HISTORY

This module came about as I was reverse engineering a checksum method being used on another project of mine. History of the method used was lost to the sands of time, and I needed something to run some quick tests on various checksum algorithms.

This module is a reimplementation of one of the algorithms I had tested.

SEE ALSO

Algorithm::CheckDigits

Algorithm::CheckDigits is a module that this probably should have been written as a part of. There is an open issue (https://github.com/MidLifeXis/perl-algorithm-damm/issues/1) to add an integration layer for this module to Algorithm::CheckDigits.

Algorithm::LUHN

Original code based on Algorithm::LUHN by Tim Ayers.

Math::CheckDigits

Slightly different approach to generating check digits.

Wikipedia

http://en.wikipedia.org/wiki/Damm_algorithm - Article explaining the Damm error correction algorithm.

REPOSITORY

You can find the source at https://www.github.org/MidLifeXis/perl-algorithm-damm.

BUGS

None known at this time, but feel free to submit them to RT or the issue tracker for this source at GitHub.

AUTHOR

This module was written by Brian T. Wightman (http://search.cpan.org/search?author=MLX) based on the module Algorithm::LUHN by Tim Ayers.

COPYRIGHT

Copyright (c) 2013 Brian T. Wightman. All rights reserved.

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.