Grep để tìm vật phẩm trong mảng Perl

Question

Mỗi khi tôi nhập vào một cái gì đó mã luôn cho tôi biết rằng nó tồn tại. Nhưng tôi biết một số đầu vào không tồn tại. Chuyện gì thế?

#!/usr/bin/perl 

@array = <>; 
print "Enter the word you what to match\n"; 
chomp($match = <STDIN>); 

if (grep($match, @array)) { 
    print "found it\n"; 
} 

Answer 1

Các arg đầu tiên mà bạn cung cấp cho nhu cầu grep để đánh giá là đúng hay sai để cho biết đã có một trận đấu. Vì vậy, nó nên là:

# 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"; 
} 

Nếu bạn cần phải phù hợp trên rất nhiều giá trị khác nhau, nó cũng có thể là đáng để bạn xem xét đưa dữ liệu array thành một hash, vì băm cho phép bạn làm điều này một cách hiệu quả mà không cần phải lặp qua danh sách.

# 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"; 
} 

Answer 2

Bạn có vẻ đang sử dụng grep() như tiện ích Unix grep, điều đó sai.

Perl's grep() trong ngữ cảnh vô hướng đánh giá biểu thức cho mỗi phần tử của danh sách và trả về số lần biểu thức là đúng. Vì vậy, khi $match chứa bất kỳ giá trị "true" nào, grep($match, @array) trong ngữ cảnh vô hướng sẽ luôn trả về số lượng phần tử trong @array.

Thay vào đó, hãy thử sử dụng các nhà điều hành mô hình phù hợp:

if (grep /$match/, @array) { 
    print "found it\n"; 
} 

Answer 3

Ngoài những gì eugene và stevenl đăng, bạn có thể gặp vấn đề với việc sử dụng cả hai <> và <STDIN> trong một kịch bản: <> lặp qua (= concatenating) tất cả các tệp được đặt dưới dạng đối số dòng lệnh.

Tuy nhiên, nếu một người dùng bao giờ quên để xác định một tập tin trên dòng lệnh, nó sẽ đọc từ STDIN, và mã của bạn sẽ chờ đợi mãi mãi trên đầu vào

Answer 4

Điều này có thể được thực hiện bằng List::Util 's first chức năng:

use List::Util qw/first/; 

my @array = qw/foo bar baz/; 
print first { $_ eq 'bar' } @array; 

chức năng khác từ List::Util như max, min, sum cũng có thể hữu ích cho bạn

Answer 5

tôi có thể xảy ra tha Nếu mảng của bạn chứa chuỗi "hello", và nếu bạn đang tìm kiếm "he", grep trả về true, mặc dù "anh ấy" có thể không phải là phần tử mảng.

Có lẽ,

if (grep(/^$match$/, @array)) apt hơn.

Answer 6

Bạn cũng có thể kiểm tra giá trị duy nhất trong nhiều mảng như,

if (grep /$match/, @array, @array_one, @array_two, @array_Three) 
{ 
    print "found it\n"; 
}