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} }
SEE ALSO
Parse::PhoneNumber