Perl implementation of the Damm ECC algorithm
Perl
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
lib/Algorithm
t
.gitignore
Build.PL
Changes
MANIFEST
MANIFEST.SKIP
META.yml
Makefile.PL
README
ignore.txt

README

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.