Algori...M43_001(3pm)

🎀 CheckDigits::M43_001 🎀

okay bestie, so this is a User Contributed Perl Documentation page — part of the Algorithm::CheckDigits family, section 3pm. It's literally the module that handles check digits for Code-39, and it's giving reliable. 💅

---

💖 NAME 💖

CheckDigits::M43_001 — compute check digits for Code-39. that's it, that's the job. no cap.

---

✨ SYNOPSIS ✨

here's the whole vibe in code form, copy it exactly bestie:

use Algorithm::CheckDigits;

$c39 = CheckDigits('code_39');

if ($c39->is_valid('AB-123K')) {
      # do something
}

$cn = $c39->complete('AB-123');
# $cn = 'AB-123K'

$cd = $c39->checkdigit('AB-123K');
# $cd = 'K'

$bn = $c39->basenumber('AB-123K');
# $bn = 'AB-123'

---

🦋 DESCRIPTION 🦋

🌸 ALGORITHM 🌸

two steps, icon, no notes:

1. First you replace every non-numeric letter with its respective value, and then the sum of all those numbers is computed. 🧮
2. The checkdigit is the sum from step 1, taken modulo 43. that's the whole ✨magic✨.

💜 METHODS 💜

is_valid($number)

Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm up there. 👑

Returns false otherwise. rude but fair.

complete($number)

The check digit for $number is computed and concatenated to the end of $number. 🫶

Returns the complete number with check digit, or '' if $number does not consist solely of digits and spaces.

basenumber($number)

Returns the basenumber of $number if $number has a valid check digit. ✨

Return '' otherwise.

checkdigit($number)

Returns the checkdigit of $number if $number has a valid check digit.

Return '' otherwise. obviously. 💀

🍓 EXPORT 🍓

None by default. nothing, zero, zilch. you get what you ask for, periodt.

---

👑 AUTHOR 👑

Mathias Weidner, "<mamawe@cpan.org>" — literal legend, respect. 🌈

---

🔥 SEE ALSO 🔥

• perl
• CheckDigits
• www.pruefziffernberechnung.de.

---

okay that's the whole thing bestie, you're fully caught up. go forth and validate those Code-39 barcodes, main character energy only. 💖

perl v5.36.0 · 2022-10-13 — that's the version and the date, mwah, bye 🎀💅