Как найти элемент в массиве?

Question

Если $ client_id не существует в @ping_host, он должен передать условие if, но он проходит только тогда, когда @ping_host пуст. Я что-то делаю неправильно?

if (!grep($client_id, @ping_host)) { 
      print "Client Id $client_name doesn't exist \n"; 
} 

Answer 1

Первого grep параметр должен быть тест, который возвращает логическое значение для каждого элемента @ping_host массива,

if (!grep($client_id eq $_, @ping_host)) { 
    print "Client Id $client_name doesn't exist \n"; 
} 

Answer 2

Это несколько неэффективно использовать grep для этого, потому что она возвращает всех матчей в массив, тогда как вам все равно, если он имеет хотя бы один. Вы можете использовать none для этого, как:

use List::MoreUtils qw(none); 
if(none { $client_id eq $_ } @ping_host) { 
    print "Client Id $client_name doesn't exist \n"; 
}