Sprawdź, czy ciąg zawiera podłańcuch

Question

Jak mogę sprawdzić, czy dany ciąg znaków zawiera pewien podciąg, używając Perla?

Dokładniej, chcę sprawdzić, czy w podanej zmiennej łańcuchowej występuje s1.domain.com.

Answer 1

Aby dowiedzieć się, czy ciąg zawiera podciąg można użyć index funkcję:

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

To zwróci pozycję pierwszego wystąpienia $substr w $str, lub -1 gdy podciąg nie zostanie znaleziony.

Answer 2

Inną możliwością jest użycie regular expressions, która jest co Perl jest znana:

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

są potrzebne backslashe ponieważ . można dopasować do dowolnego znaku. Możesz obejść to, używając operatorów \Q i \E.

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

Albo można zrobić jak eugene y stwierdził i użyć funkcji index. Tylko słowo ostrzeżenia: Indeks zwraca -1, gdy nie może znaleźć dopasowania zamiast undef lub 0.

Tak więc, jest to błąd:

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

to będzie źle, jeśli s1.domain.com jest na początku swojej ciąg. Osobiście spaliłem to więcej niż jeden raz.

Answer 3

Case Insensitive podciągu Przykład

Jest to rozszerzenie odpowiedzi Eugeniusza, który przekształca sznurki na małe litery przed sprawdzeniem podciągu:

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