Perl регулярное выражение для соответствия номера телефонов

Question

Regex:

\b(\(\d{3}\)|\d{3})?[-.]?\d{3}[-]?\d{4}\b 

Мой входной файл имеет два типа номеров телефонов. Один, чьи первые 3 цифры заключены в круглые скобки, а другие без круглых скобок. Например:

"(201)-450-4479" ,"234-345-3456" 

Я хочу, чтобы соответствовать оба типа телефонных номеров с использованием альтернативного оператора.

Пожалуйста, предложите мне. Какая модификация требуется для вышеупомянутого выражения для получения предполагаемого результата?

Answer 1

Я хотел бы использовать это:

(\(?\d+\)?\-\d+\-\d+)

или с использованием альтернативного оператора:

(\d+\-\d+\-\d+|\(\d+\)\-\d+\-\d+)

Answer 2

\b матчи на словесно-nonword границе. Если такая граница должна появиться до (, ей должен предшествовать символ слова, а не пробел или ничего.

Cf.

print /\b\(/ ? 1 : 0 for '(', ' (', 'a('; 

Удалите исходный \b из регулярного выражения, или заменить его

(?x: \b | \s | ^)