Гудзонский мерзавец клонирует ошибку

Хотя ответ для разделения всего пробела аккуратен, это действительно не решает проблему, это изложено, который должен найти regex. Возьмите, например, мой сценарий тестирования, который загружает веб-страницу и извлекает все номера телефона с помощью regex. Так как Вам был бы нужен regex так или иначе, у Вас мог бы также быть regex, делают всю работу. Я придумал это:

1?\W*([2-9][0-8][0-9])\W*([2-9][0-9]{2})\W*([0-9]{4})(\se?x?t?(\d*))?

Вот сценарий жемчуга для тестирования его. Когда Вы соответствуете, 1$ содержит код зоны, 2$ и 3$ содержат номер телефона, и 5$ содержат расширение. Мой сценарий тестирования загружает файл с Интернета и печатает все номера телефона в нем.

#!/usr/bin/perl

my $us_phone_regex =
        '1?\W*([2-9][0-8][0-9])\W*([2-9][0-9]{2})\W*([0-9]{4})(\se?x?t?(\d*))?';


my @tests =
(
"1-234-567-8901",
"1-234-567-8901 x1234",
"1-234-567-8901 ext1234",
"1 (234) 567-8901",
"1.234.567.8901",
"1/234/567/8901",
"12345678901",
"not a phone number"
);

foreach my $num (@tests)
{
        if( $num =~ m/$us_phone_regex/ )
        {
                print "match [$1-$2-$3]\n" if not defined $4;
                print "match [$1-$2-$3 $5]\n" if defined $4;
        }
        else
        {
                print "no match [$num]\n";
        }
}

#
# Extract all phone numbers from an arbitrary file.
#
my $external_filename =
        'http://web.textfiles.com/ezines/PHREAKSANDGEEKS/PnG-spring05.txt';
my @external_file = `curl $external_filename`;
foreach my $line (@external_file)
{
        if( $line =~ m/$us_phone_regex/ )
        {
                print "match $1 $2 $3\n";
        }
}

Редактирование:

можно ли изменить \W* на \s*\W? \s* в regex для закручивания его немного. Я не думал о regex с точки зрения, скажем, проверки ввода данных пользователем на форме, когда я записал его, но это изменение позволяет использовать regex с этой целью.

'1?\s*\W?\s*([2-9][0-8][0-9])\s*\W?\s*([2-9][0-9]{2})\s*\W?\s*([0-9]{4})(\se?x?t?(\d*))?';