Grep номер билета из текстового Perl

Question

Мне нужно grep следующее:
my $string = "Thanks for contacting support. Your ticket number: 123. All the best!"
или
my $string = "Thanks for contacting support. Your ticket #: 123. All the best! "

Как мне преобразовать 123 в переменную $ticket_no с помощью PERL?

Я думаю, что регулярное выражение должно быть примерно таким: ticket[ \t]+(number|#)?[: \t]+([0-9]+)

Это правильно?

Answer 1

Да, это регулярное выражение будет работать.Вы можете использовать его следующим образом:

$string =~ m/ticket[ \t]+(number|#)?[: \t]+([0-9]+)/;
my $ticket_no = $2;

Обратите внимание, что вы захотите как-то обработать случай, когда регулярное выражение не соответствует, поскольку в этом случае $ticket_no будет неопределенным.

Answer 2

Как уже сказал Руах - ваше регулярное выражение будет работать.

Подсказка: существует множество сайтов для тестирования регулярных выражений, которые облегчают тестирование и оптимизацию регулярных выражений.

Примером может быть: http://myregextester.com/