On 24/04/2014 23:28, Mark Fowler wrote:
On Thursday, April 24, 2014, Michael Lush <mjl...@gmail.com> wrote:
if ($x =~ /^246[2-9]\d{6}$/ and $x =~
/^246(?:(?:2[346]|45|82)\d|25[0-4])\d{4}$/ )
Those /d are incorrect. You want [0-9] or to use the /a regexp flag on a
suitably modern perl.
https://code.google.com/p/libphonenumber/source/browse/trunk/resources/PhoneNumberMetadata.xml
My regexes come directly from Google's libphonenumber. They are happy to
accept patches provided you sign your life away in blood. I require no
such blood sacrifice for my code, but do insist that the tests still
pass on perl 5.8.8.
https://github.com/DrHyde/perl-modules-Number-Phone
Assuming that you actually care, and aren't just pedanting in the finest
custom of this august group, of course :-)
--
David Cantrell | top google result for "internet beard fetish club"
Nuke a disabled unborn gay baby whale for JESUS!