Каждый раз, когда я ввожу что-то, код всегда говорит мне, что он существует. Но я знаю, что некоторые из входов не существуют. Что не так?
#!/usr/bin/perl
@array = <>;
print "Enter the word you what to match\n";
chomp($match = <STDIN>);
if (grep($match, @array)) {
print "found it\n";
}
Первый аргумент, который вы даете grep, должен оцениваться как true или false, чтобы указать, было ли совпадение. Поэтому это должно быть:
# note that grep returns a list, so $matched needs to be in brackets to get the
# actual value, otherwise $matched will just contain the number of matches
if (my ($matched) = grep $_ eq $match, @array) {
print "found it: $matched\n";
}
Если вам нужно сопоставлять множество разных значений, вам также стоит подумать о том, чтобы поместить данные array в hash, так как хэши позволяют вам делать это эффективно, не выполняя итерацию через список.
# convert array to a hash with the array elements as the hash keys and the values are simply 1
my %hash = map {$_ => 1} @array;
# check if the hash contains $match
if (defined $hash{$match}) {
print "found it\n";
}
Кажется, вы используете grep() как утилиту Unix grep, что неверно.
Perl grep() в скалярном контексте оценивает выражение для каждого элемента списка и возвращает количество раз, когда выражение было истинным.
Поэтому, когда $match содержит любое "истинное" значение, grep($match, @array) в скалярном контексте всегда возвращает число элементов в @array.
Вместо этого попробуйте использовать оператор сопоставления шаблонов:
if (grep /$match/, @array) {
print "found it\n";
}
Это можно сделать, используя List:: Util first function:
use List::Util qw/first/;
my @array = qw/foo bar baz/;
print first { $_ eq 'bar' } @array;
Другие функции из List::Util, такие как max, min, sum также могут быть полезны для вас
В дополнение к тому, что опубликовано в eugene и stevenl, вы можете столкнуться с проблемами с использованием как <>, так и <STDIN> в одном script: <> итерации посредством (= конкатенации) всех файлов, заданных в качестве аргументов командной строки.
Однако, если пользователь когда-либо забудет указать файл в командной строке, он будет читать из STDIN, и ваш код будет ждать всегда на входе
Я мог бы предположить, что если ваш массив содержит строку "hello", и если вы ищете "he", grep возвращает true, хотя "he" может не быть элементом массива.
Может быть,
if (grep(/^$match$/, @array)) больше.
Вы также можете проверить одно значение в нескольких массивах, например,
if (grep /$match/, @array, @array_one, @array_two, @array_Three)
{
print "found it\n";
}