perlancar > Parse-PhoneNumber-ID > Parse::PhoneNumber::ID

Download:
Parse-PhoneNumber-ID-0.11.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.11   Source  

NAME ^

Parse::PhoneNumber::ID - Parse Indonesian phone numbers

VERSION ^

This document describes version 0.11 of Parse::PhoneNumber::ID (from Perl distribution Parse-PhoneNumber-ID), released on 2014-10-16.

SYNOPSIS ^

 use Parse::PhoneNumber::ID qw(parse_id_phone extract_id_phones);
 use Data::Dump;

 dd parse_id_phone(text => 'Jual dalmatian 2bl lucu2x. Hub: 7123 4567',
                   default_area_code=>'022');

Will print something like:

 { raw          => 'Hub: 7123 4567',
   pretty       => '022-7123-4567',
   standard     => '+62.22.71234567',
   is_cell      => 1,
   is_gsm       => 0,
   is_cdma      => 1,
   operator     => 'telkom',
   product      => 'flexi',
   area_code    => '022',
   province     => 'jabar',
   cities       => 'Bandung, Cimahi, ...',
   local_number => '71234567',
   country      => 'Indonesia',
   country_code => '62',
   ext          => undef, }

To extract more than one numbers in a text:

 my $phones = extract_id_phones(text => 'some text containing phone number(s):'.
                                        '0812 2345 6789, +62-22-91234567');
 say "There are ", scalar(@$phones), "phone number(s) found in text";
 for (@$phones) { say $_->{pretty} }

FUNCTIONS ^

extract_id_phones(%args) -> any

Extract phone number(s) from text.

Extracts phone number(s) from text. Return an array of one or more parsed phone number structure (a hash). Understands the list of known area codes and cellular operators, as well as other information. Understands various syntax e.g. +62.22.1234567, (022) 123-4567, 022-123-4567 ext 102, and even things like 7123456/57 (2 adjacent numbers).

Extraction algorithm is particularly targetted at classified ads text in Indonesian language, but should be quite suitable for any other normal text.

Non-Indonesian phone numbers (e.g. +65 12 3456 7890) will still be extracted, but without any other detailed information other than country code.

Arguments ('*' denotes required arguments):

Return value:

 (any)

parse_id_phone(%args) -> any

Alias for extract_id_phones(..., max_numbers=>1)->[0].

Arguments ('*' denotes required arguments):

Return value:

 (any)

TODO ^

Need to update with more prefixes.

Data needs to be cleaned up (especially city names to city codes) and moved to GudangData project.

SEE ALSO ^

Parse::PhoneNumber

HOMEPAGE ^

Please visit the project's homepage at https://metacpan.org/release/Parse-PhoneNumber-ID.

SOURCE ^

Source repository is at https://github.com/perlancar/perl-Parse-PhoneNumber-ID.

BUGS ^

Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Parse-PhoneNumber-ID

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

AUTHOR ^

perlancar <perlancar@cpan.org>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2014 by perlancar@cpan.org.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: