Hugh Kennedy > Number-Phone-US-1.5 > Number::Phone::US

Download:
Number-Phone-US-1.5.tar.gz

Dependencies

Annotate this POD

Related Modules

Regexp::Common
more...
By perlmonks.org

CPAN RT

Open  1
View/Report Bugs
Module Version: 1.5   Source  

NAME ^

Number::Phone::US - Validate US-style phone numbers

SYNOPSIS ^

  use Number::Phone::US qw(is_valid_number);

  &do_that_thing if is_valid_number($input);

DESCRIPTION ^

Number::Phone::US is a simple module to validate US-sytle phone number formats.

Currently marks as valid, phone numbers of the following forms:

         (734) 555 1212
         (734) 555.1212
         (734) 555-1212
         (734) 5551212
         (734)5551212
         734 555 1212
         734.555.1212
         734-555-1212
         7345551212
         555 1212
         555.1212
         555-1212
         5551212
         5 1212
         5.1212
         5-1212
         51212

Currently marks as invalid, phone numbers of the following forms:

         734-555.1212
         734-5551212

validate_number($ )

Use like

  if ( validate_number($number) ) { &foo; }

returns true if $number is a properly formatted US phone number. does _not_ check and see if $number is a functioning number, although maybe it should.

this function can also be called as: is_valid_number($number)

get_regex ()

Use like

  $rough_regex = get_regex;
  if ( $phone =~ /$rough_regex/o ) { &foo }

returns the rough regex string (does not enforce phone number consistency.)

COPYRIGHT ^

   COPYRIGHT  2000 THE REGENTS OF THE UNIVERSITY OF MICHIGAN
   ALL RIGHTS RESERVED

   PERMISSION IS GRANTED TO USE, COPY, CREATE DERIVATIVE WORKS
   AND REDISTRIBUTE THIS SOFTWARE AND SUCH DERIVATIVE WORKS FOR
   NON-COMMERCIAL EDUCATION AND RESEARCH PURPOSES, SO LONG AS NO
   FEE IS CHARGED, AND SO LONG AS THE COPYRIGHT NOTICE ABOVE,
   THIS GRANT OF PERMISSION, AND THE DISCLAIMER BELOW APPEAR IN
   ALL COPIES MADE; AND SO LONG AS THE NAME OF THE UNIVERSITY
   OF MICHIGAN IS NOT USED IN ANY ADVERTISING OR PUBLICITY
   PERTAINING TO THE USE OR DISTRIBUTION OF THIS SOFTWARE
   WITHOUT SPECIFIC, WRITTEN PRIOR AUTHORIZATION.

   THIS SOFTWARE IS PROVIDED AS IS, WITHOUT REPRESENTATION AS
   TO ITS FITNESS FOR ANY PURPOSE,  AND WITHOUT WARRANTY OF ANY
   KIND,  EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT
   LIMITATION THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
   FITNESS FOR A PARTICULAR PURPOSE. THE REGENTS OF THE
   UNIVERSITY OF MICHIGAN SHALL NOT BE LIABLE FOR ANY DAMAGES,
   INCLUDING SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
   DAMAGES, WITH RESPECT TO ANY CLAIM ARISING OUT OF OR IN
   CONNECTION WITH THE USE OF THE SOFTWARE, EVEN IF IT HAS BEEN
   OR IS HEREAFTER ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

SEE ALSO ^

perl(1)

AUTHOR ^

Hugh Kennedy <kennedyh@engin.umich.edu>

     __|   \   __|  \ |
    (     _ \  _|  .  |
   \___|_/  _\___|_|\_|
syntax highlighting: