Sprawdź, czy łańcuch zawiera podłańcuch

Inną możliwością jest użycie wyrażeń regularnych z czego słynie Perl:

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

Ukośniki są potrzebne, ponieważ {[3] } może pasować do dowolnego znaku. Można to obejść za pomocą operatorów \Q i \E.

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

Lub możesz zrobić tak jak i użyć funkcji index . Tylko słowo ostrzeżenia: Index 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 złe, jeśli s1.domain.com znajduje się na początku twojego ciągu. Osobiście byłem tym poparzony więcej niż raz.

Przykład Niewrażliwego Na Wielkość Liter

Jest to rozszerzenie odpowiedzi Eugene ' a, które konwertuje łańcuchy znaków na małe litery przed sprawdzeniem podcięcia:

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