Как я могу проверить aaa или aab или a в строке Perl?

Question

Может кто-нибудь сказать мне, какой шаблон мне нужно написать в выражении связывания, если я хочу проверить, содержит ли строка aaa или aab или a?

$str = "Hello how are aaa you?";
print $str =~ m/what should i write here?/;

Answer 1

$str =~ /a|aaa|aab/

Возможно, вы захотите проверить приоритет обычного оператора , чтобы убедиться, что вас не поймают такие вещи, как /^foo|bar$/ (соответствует ^foo или bar$, в отличие от ^(foo|bar)$).

Answer 2

$str =~ /a/

(Подумайте об этом ...)

Answer 3

(aaa|aab|a) ...

Answer 4

Учитывая точку зрения mscha (ответ не комментарий) Интересно, действительно ли вы хотите соответствовать и сохранить.Если вы хотите узнать, что вы нашли, попробуйте что-то вроде глобального совпадения, записанного в массив.

#!/usr/bin/perl

use strict;
use warnings;

my $str = "Hello how are aaa you?";
my @found = $str =~ m/(aaa|aab|a)/g;
foreach my $result (@found) {
  print "found $result\n";
}