тест на существование ключа с подстрокой

Question

У меня есть многомерный хэш/массив, который выглядит так, используя datadumper;

{ 
      'Customer' => {'123abc' => 
         {'status' => 
            {'New' => 
               {'email'=>['user@xxx.com' ], 
               'template' => 'XYZ' } 
                     } 
                  }, 
         '234' => 
         {'status' => 
            {'New' => 
              {'email' => ['user@xxx.com' ], 
              'template' => 'XYZ' } 
                      } 
                   } 

$customers = ("123abc", "234abc", "adb234"); 

Мне нужно проверить наличие клиента на основе полного или частичного соответствия значения массива.

Код, который я использую для полных матчей, отлично работает;

foreach (@customers) { 
if ($config->{Customer}->{$customers[0]}) { 
do something 
} } 

Это вернет матч на «123abc»

Но я не могу получить его в соответствие, когда есть строка 234 в $ клиентов [0] или просто тестирование без массива $ клиентов и используя только строка.

Я пробовал;

if (/.234*$/ ~~ %config->{Customer}) 

основан на примере смарт Matching на этом сайте «печать„У нас есть несколько подростков \ п“, если /.*teen$/ ~~% ч;».

и

if (exists $config->{Customer}->{/234/} 

, а также с использованием м в начале регулярного выражения. {М/234 /}

Джон

Это написано в Perl.

Answer 1

Похоже, вы хотите использовать все ключи.

my @keys = grep { /234/ } keys %{$config->{Customer}}; 
if (@keys) { 
    # do something, but check for multiple matches... 
} 

Grep возвращает все элементы, где блок истинно, каждый элемент которого представлены $ . Соответствие регулярному выражению (//) по умолчанию соответствует $. Вышеупомянутое заявление можно было бы переписать как

my @keys = grep { $_ =~ /234/ } keys %{$config->{Customer}}; 
if (@keys) { 
    # do something, but check for multiple matches... 
} 

Но это лишнее, если вы знакомы с perl.