The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Number::Phone::DE::Mobile Check German Mobile Phone Numbers for validity and put them into a standard format.

SYNOPSIS

  use Number::Phone::DE::Mobile qw(checkmsisdn);

  $checkedmsisdn = Number::Phone::DE::Mobile->checkmsisdn($rawmsisdn);

DESCRIPTION

Number::Phone::DE::Mobile is a simple module to validate German Mobile Phone Numbers (MSISDNs) and return them in a single format.

regarding the fact, that mobile phone msisdns can contain 7 or 8 digits behind the area code and also regarding the various msisdn-output formats on wap gateways, sms-servers etc. i wrote a small perl-module that transforms all msisdns, no matter what input-format you use, into one, standard output format:

                        xxyyyzzzzzzzz
where:
x = country code
y = area code
z = subscriber number (either 7 or 8 digits...)

basically there are 10 types of msisdn-notations that are possible at present and that are supported by the module: 7-digit numbers:

0049___17x_____1234567_____=14 digits

34_____17x_____1234567_____=12 digits

00_____17x_____1234567_____=12 digits

0______17x_____1234567_____=11 digits

_______17x_____1234567_____=10 digits

8-digit numbers:

0049___17x_____12345678____=15 digits

34_____17x_____12345678____=13 digits

00_____17x_____12345678____=13 digits

0______17x_____12345678____=12 digits

_______17x_____12345678____=11 digits

comments: 1) the country code can be any number not starting with a zero. (this will work for nearly all countries except countries with a single digit country code.)

2) the area code can be any 3-digit number starting with "1" (i.e.: 179, 176, 150, 160, 168 etc...)

3) a leading "+" sign will be translated into two zeros "00" before its processed

4) special characters like "+","&",";","_","-","." will be deleted from the msisdn before its processed

5) if the msisdn is not ok, the program returns "invalid".

COPYRIGHT

This module is published under the GPL.

SEE ALSO

perl(1)

AUTHOR

Karsten Pawlik Mailto: netsrak@cpan.org Web: http://www.designlab.de