Kiểm tra xem chuỗi có chứa chuỗi con

Question

Làm cách nào để kiểm tra xem chuỗi đã cho có chứa chuỗi con nhất định không, sử dụng Perl?

Cụ thể hơn, tôi muốn xem liệu s1.domain.com có mặt trong biến chuỗi đã cho hay không.

Answer 1

Để tìm hiểu xem một chuỗi chứa substring bạn có thể sử dụng chức năng index:

if (index($str, $substr) != -1) { 
    print "$str contains $substr\n"; 
} 

Nó sẽ trở lại vị trí của sự xuất hiện đầu tiên của $substr trong $str, hoặc -1 nếu chuỗi không được tìm thấy.

Answer 2

Một khả năng khác là sử dụng regular expressions đó là Perl là những gì nổi tiếng với:

if ($mystring =~ /s1\.domain\.com/) { 
    print qq("$mystring" contains "s1.domain.com"\n); 
} 

Dấu gạch chéo ngược là cần thiết vì một . có thể phù hợp với bất kỳ ký tự. Bạn có thể giải quyết vấn đề này bằng cách sử dụng các toán tử \Q và \E.

my $substring = "s1.domain.com"; 
    if ($mystring =~ /\Q$substring\E/) { 
    print qq("$mystring" contains "$substring"\n); 
} 

Hoặc, bạn có thể làm như eugene y đã nêu và sử dụng chức năng index. Chỉ một lời cảnh báo: Chỉ số trả về một số -1 khi không thể tìm thấy kết quả phù hợp thay vì undef hoặc 0.

Như vậy, đây là một lỗi:

my $substring = "s1.domain.com"; 
if (not index($mystring, $substr)) { 
    print qq("$mystring" doesn't contains "$substring"\n"; 
} 

này sẽ là sai lầm nếu s1.domain.com là lúc bắt đầu của chuỗi của bạn. Cá nhân tôi đã bị đốt cháy nhiều lần.

Answer 3

case insensitive xâu Ví dụ

Đây là một phần mở rộng của câu trả lời Eugene, mà chuyển đổi chuỗi để giảm trường hợp trước khi kiểm tra cho chuỗi:

if (index(lc($str), lc($substr)) != -1) { 
    print "$str contains $substr\n"; 
}