Algorithm::CheckDigits::M10_008(3pm) | User Contributed Perl Documentation | Algorithm::CheckDigits::M10_008(3pm) |
CheckDigits::M10_008 - compute check digits for Sedol (GB)
use Algorithm::CheckDigits; $sedol = CheckDigits('sedol'); if ($sedol->is_valid('0123457')) { # do something } $cn = $sedol->complete('012345'); # $cn = '0123457' $cd = $sedol->checkdigit('0123457'); # $cd = '7' $bn = $sedol->basenumber('0123457'); # $bn = '012345'
Prior to March 2004 SEDOL codes solely consisted of numbers. Since March 2004 SEDOL codes are a 7 character alphanumeric code.
The structure of the alphanumeric SEDOL codes is one alpha character followed by 5 alphanumeric characters followed by the numerical check digit.
No SEDOL code will be issued without the first alpha character. Active numerical SEDOL codes issued prior to March 2004 remain valid.
Returns false otherwise,
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
This function always returns the SEDOL code in upper case.
Return '' otherwise.
This function always returns the SEDOL base number in upper case.
Return '' otherwise.
None by default.
Mathias Weidner, "<mamawe@cpan.org>"
perl, CheckDigits, www.londonstockexchange.com Masterfile technical specifications V7.0.
2022-10-13 | perl v5.36.0 |